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This  report  describes  five  computer  programs  that  are  being  used  at  the  Naval 
Ordnance  Laboratory  for  analyzing  satellite  magnetism.  The  programs  contain  numerical 
analysis  algorithms  for  the  spherical  harmonic  analysis  of  the  magnetic  field  emanating 
from  a  satellite.  The  analysis  is  directed  at  determining  the  components  of  the 
magnetism  which  correspond  to  the  dipole  moment,  quadrupole  moment,  etc.  The  first 
three  programs  were  devised  to  analyze  data  from  magnetic  field  measurements  around 
the  satellite.  The  fourth  program  was  devised  to  generate  simulated  measurement  data 
for  a  specified  system  of  multipole  magnets.  The  last  program  is  a  combination  of  the 
data  generation  and  the  data  analysis  programs.  Sample  problems  are  included  in  the 
discussion  to  illustrate  the  techniques  of  using  the  programs  with  a  CDC  6400  Computer 
including  the  INTERCOM  time-sharing  system.  A  brief  description  is  also  included  of 
data  acquisition  techniques  and  of  principal  subprograms. 
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Computer  Programs  for  the  Analysis  of  Spacecraft  Magnetism 


During  the  past  several  years  techniques  have  been  developed  for  measuring  and 
analyzing  the  magnetism  of  spacecraft.  The  techniques  are  directed,  first,  at 
estimating  the  spacecraft^  magnetic  dipole  moment  and,  second,  at  compensating  the 
dipole  moment  to  allow  the  spacecraft  to  maintain  a  stable  orientation  while  in 
orbit.  This  procedure  requires  accurate  measurements  of  the  magnetic  field 
emanating  from  the  spacecraft.  The  Naval  Ordnance  Laboratory  is  currently  involved 
in  the  development  of  a  facility  to  conduct  sophisticated  magnetic  tests  of  space¬ 
craft.  The  facility  will  contain  instrumentation  which  will  automatically  record 
and  analyze  the  test  data.  This  report  has  been  published  to  document  the 
numerical  techniques  to  be  used  in  the  analysis  of  the  data.  Techniques  are  also 
described  which  can  be  used  to  predict  the  accuracy  of  different  types  of 
measurement  and  analysis  techniques. 

The  development  and  testing  of  the  computer  programs  required  a  considerable 
amount  of  effort.  Mr.  H.  W.  Korab  contributed  much  to  this  effort,  including  the 
development  of  the  BASIC  version  of  the  analysis  procedure.  He  also  assisted  in 
the  development  of  the  illustrations  included  in  this  report. 
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Chapter  1 

INTRODUCTION 

1.  A  major  effort  has  been  applied  to  the  development  of  computer  programs  and 
subprograms  to  assist  in  the  analysis  of  satellite  magnetism.  The  analysis  is  part 
of  a  procedure  directed  at  determining  and  compensating  the  magnetic  dipole  moment 
of  a  satellite.  The  procedure  involves  four  steps.  The  first  step  is  to  measure 
the  normal  component  of  the  satellite’s  magnetic  field  on  the  surface  of  a  sphere 
enclosing  the  satellite.  The  second  step  involves  the  spherical  harmonic  analysis 
of  the  measured  data  to  determine  the  magnitude  and  the  direction  of  the  satellite’s 
dipole  moment.  The  third  step  is  to  attach  an  opposing  dipole  to  the  satellite 
with  equal  magnitude  and  opposite  direction.  The  final  step  is  to  repeat  the 
measurement  and  analysis  procedures  to  verify  the  compensation. 

2.  The  five  programs  described  in  this  report  have  been  devised  to  perform  a 
variety  of  data  analysis  tasks.  One  of  the  programs  is  coded  in  the  BASIC 
computer  language.  The  other  four  are  coded  in  FORTRAN  IV.  The  first  three 
programs  are  used  to  analyze  data  representing  the  normal  component  of  the 
magnetic  field  on  the  surface  of  a  sphere  enclosing  the  satellite.  The  fourth 
program  is  used  to  generate  simulated  measurement  data  for  a  specified  system  of 
multipole  magnets.  The  program  also  allows  the  simulation  of  measurement  errors. 
The  last  program  is  a  combination  of  the  data  generation  and  the  analysis 
programs.  The  programs  have  been  designed  to  allow  a  variety  of  options  including: 

a.  Reading  the  input  data  from  paper  tape  or  from  a  data  file 

b.  Using  either  an  algebraic  or  geometric  integrating  scheme  to  perform 
the  analysis 

c.  Printing  the  data  after  preliminary  data  processing 

d.  Interpolating  and  plotting  the  processed  data  curves. 
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3.  The  discussion  begins  with  a  brief  description  of  data  acquisition 
techniques.  This  is  followed  by  a  description  of  the  five  programs  including 
sample  problems  which  demonstrate  the  use  of  the.  programs.  Finally,  a  description 
is  given  of  some  of  the  primary  subprograms.  These  are  listed  separately  since 
they  can  be  used  as  building  blocks  for  other  programs.  The  discussion  is 
supplemented  by  several  illustrations,  many  of  which  are  the  actual  computer 
outputs  from  the  execution  of  the  computer  programs.  The  majority  of  the  data 
curves  are  output  from  the  CALCOMP  570  digital  incremental  plotter.  A  description 
of  the  data  units  for  the  programs  has  also  been  included  in  paragraph  33. 

Appendix  A  contains  a  glossary  of  symbols  and  terms  used  in  the  report. 
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Chapter  2 

DATA  ACQUISITION  TECHNIQUES 


4.  A  brief  description  of  spherical  coordinates  and  the  techniques  used  in  the 
data  acquisition  will  assist  in  the  description  of  the  parameters  used  in  the  data 
analysis  and  the  computer  programs.  Figure  1  illustrates  the  relationship  between 
rectilinear  and  spherical  coordinates.  An  arbitrary  point  R  (or  vector)  in  space 
can  be  defined  in  terms  of  the  spherical  coordinates  of  R,  9,  and  cp  representing 
the  radial  distance,  the  colatitude  and  the  (easterly)  longitude  respectively. 

(0  is  sometimes  called  the  polar  angle,  and  cp  is  sometimes  called  the  dihedral 
angle.)  Appendix  A  gives  the  definitions  of  these  coordinates  in  terms  of 
rectilinear  coordinates. 

5.  Figure  2  shows  a  simplified  diagram  of  the  test  setup  for  conducting  the 
measurements  of  a  satellite's  magnetism.  The  degrees  of  freedom  illustrated  in 
the  figure  are  defined  to  correspond  to  the  spherical  angles.  The  rotation  axis, 
provided  by  a  horizontal  turntable,  allows  a  variation  in  colatitude.  The  tilt 
axis,  provided  by  a  giraballing  fixture  attached  to  the  satellite,  allows  a 
variation  in  longitude.  Analog  curves  are  made  of  the  sensor  reading  versus  the 
colatitude  for  a  fixed  set  of  positions  of  longitude.  The  curves  are  recorded 
while  the  satellite  is  in  a  zero  magnetic  field  environment.  Notice  that  the 
sensor  in  Figure  2  is  radially  aligned.  This  setup  generates  analog  curves 
representing  the  normal  component  of  the  satellite  magnetism  along  great  circles  of 
longitude  as  shown  in  Figure  3. 

6.  Lot  the  parameter  NO  represent  the  number  of  curves  of  data  to  be  recorded. 
These  curves  correspond  to  measurements  along  great  circles  spaced  (180/N0)  degrees 
apart.  Figure  3  shows  an  example  whon  NO  =  6.  There  will  be  six  analog  curves  of 
data  corresponding  to  the  six  great  circles.  Figure  4  shows  the  initial  positions 
for  each  of  the  curves. 
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7.  As  a  sample  problem  consider  the  system  of  dipoles  illustrated  in  Figure  5. 
The  first  curve  begins  with  the  +z-axis  directed  at  the  magnetic  sensor  and  the 
+y-axis  pointed  up.  The  turntable  is  rotated  clockwise.  Prior  to  beginning  each 
succeeding  curve,  the  satellite  is  tilted  (180/N0  =  30)  degrees  around  the  z-axis. 
Figure  6  shows  a  typical  set  of  six  data  curves  for  the  sample  problem.  Each  curve 
is  marked  with  25  data  points.  The  parameter  N1  is  used  to  represent  the  number  of 
data  points  per  curve  (N1  =  25  in  the  example).  The  points  are  spaced  (360/(Nl-l)) 
=  15  degrees  apart.  The  value  at  each  measurement  point  is  automatically 
recorded  via  analog- to-digital  (A/D)  conversion  equipment  in  the  satellite 
measurements . 

8.  Notice  that  the  curves  in  Figure  6  do  not  all  begin  with  the  same  value, 
although,  theoretically  they  should.  This  is  typical  of  the  type  of  measurements 
that  are  made  on  satellites.  The  curves  represent  relative  measurements  instead  of 
absolute  measurements.  It  would  be  possible  to  insure  that  the  curves  all  begin 
with  the  same  value,  but  It  would  not  necessarily  be  the  correct  value. 
Nevertheless,  the  data  analysis  is  independent  of  the  starting  value  of  each  curve. 
Therefore,  no  concern  is  given  to  this  problem  in  the  acquisition  of  the  data. 

9.  Reference  (a)  lists  several  considerations  in  the  determination  of  the 
parameters  for  the  data  acquisition  including  NO,  Nl,  and  the  radius  R1  of  the 
measurement  sphere.  The  considerations  include: 

a.  The  smoothness  of  the  data  curves 

b.  The  analysis  method 

c.  The  accuracy  of  the  measuring  apparatus 

d.  The  round-off  errors  of  the  computing  machine. 

The  parameters  are  not  all  independent.  They  must  be  determined  by  making  certain 
compromises.  For  instance,  the  data  curves  can  be  smoothed  by  increasing  R1 
(i.e.,  by  increasing  the  minimum  distance  between  the  surface  of  the  measurement 
sphere  and  the  satellite),  but  this  will  decrease  the  relative  accuracy  of  the 
data.  Also,  the  total  number  of  data  points  N0*N1  may  be  increased,  but  computing 
machine  errors  will  become  more  significant.  An  increase  in  the  number  of  data 
points  will  also  increase  the  computing  time  and  data  storage. 
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10,  Experience  has  shown  that  the  dipole  moment  for  most  problems  can  be 
approximated  accurately  enough  if  the  following  conditions  hold: 

a.  Let  the  minimum  distance  between  the  surfaoe  of  the  measurement  sphere 
and  the  satellite  be  at  least  half  the  maximum  diameter  of  the  satellite  to  insure 
sufficient  smoothness  of  the  data  curves.  For  example,  the  radius  of  the 
measurement  sphere  for  a  body  with  maximum  diameter  of  50  inches,  and  centered  at 
the  origin,  should  be  at  least  50  inohes. 

b.  Let  NO  be  a  8  and  N1  be  s  16  to  insure  that  the  errors  from  the 
numerical  approximation  are  smaller  than  the  measurement  errors.  (This  condition 
can  be  relaxed  in  cases  where  the  satellite  magnetism  gives  simple  sine-cosine 
curves.  In  the  past,  NO  =  4  end  N1  =  25  has  been  sufficient  in  many  cases.) 

c.  Use  the  simplest  analysis  procedure  (i.e.,  the  geometric  integrating 
scheme)  for  the  preliminary  analysis  since  it  is  relatively  aoourate  and  easy  to 
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Chapter  3 
MAIN  PROGRAMS 


PROGRAMS  SA1Q21  AND  SA202A 

Introduction 

11.  The  programs  labeled  SA1024  and  SA2024  (Appendices  B  and  C)  are  BASIC  and 
FORTRAN  IV  versions,  respectively,  of  the  basic  one-term  data  analysis  procedure. 
The  procedure  is  simple  because  only  the  dipole  moment  term  is  computed  for  the 
satellite  magnetism  and  only  the  approximate  method  of  numerical  integration  is 
used.  The  programs  print  the  measurement  data  and  the  computed  dipole  moment  in 
rectilinear  and  spherical  coordinates.  They  also  print  data  which  assists  in 
calibrating  and  aligning  the  compensating  dipoles.  The  major  difference  between 
the  two  versions  is  the  manner  of  entering  the  data.  The  BASIC  version  is  set  up 
to  take  the  data  from  DATA  statements.  The  FORTRAN  IV  version  accepts  data  from 
paper  tape  or  from  a  data  file. 

Input  Data 

12.  The  data  is  entered  into  the  programs  in  the  order  of  the  following 
definitions : 


a.  First  line  of  data  or  data  card  -  format:  (315) 

NO  -  The  number  of  curves  of  data  (NO  is  even  and  ^  16.) 

N1  -  The  number  of  equally  spaced  data  points  per  curve  from  0  thru 
360  degrees  colatitude  (N-.  is  odd  and  £  33.  The  first  and  last 
data  points  for  each  curve  correspond  to  measurements  at 
0  degrees  colatitude.) 

IR  -  The  parameter  that  determines  whether  or  not  to  read  the  data 
from  a  data  file.  IR  ^  0  means  that  the  data  will  be  read  from 
the  data  file  DAT024.  (This  parameter  is  used  only  with  the 
FORTRAN  IV  version.) 
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b.  Second  line  of  dat:1  or  data  card  -  format;  (2F6.1) 

R1  -  The  radius  of  the  measurement  sphere  in  inches 

C6  -  The  value  of  the  calibration  signal  (C7-C8)  in  gamma 

c.  Third  line  of  data  or  data  card  -  format:  (15) 

N2  -  The  parameter  that  determines  whether  or  not  to  print  the 
measured  data  (N2  ^  0  means  that  the  data  will  be  printed.) 

d.  Measurement  data  -  format:  (9F6.1)  (These  cards  are  deleted  if 
IR  j  0.) 


C7  -  The  static  measurement  with  the  calibration  signal 

C8  -  The  static  measurement  without  the  calibration  signal 

F(I,J)  -  The  measurement  data  for  I  =  1,2, •**,N1  and  J  =  1,2,#,,,N0, 

The  input  data  cycle  may  be  repeated  by  starting  with  new  data  NO,  Nl,  and  IR 
again.  The  program  execution  is  terminated  by  setting  the  new  value  for  NO  equal 
to  zero. 


Output  Data 

13.  The  programs  SA1024  and  SA2024  then  perform  a  numerical  integration  of  the 
equation 


tt  2n 


D  =  (3*Rl3/8n)  J  J  f(0,9)  sin  8  d0  d< p 
0  0 


(1) 


for  the  dipole  moment  D.  The  numerical  equation  is 


_  NO  Nl 

D  *,  (3«RlV0n)  £  E  F(I,J)*!I(0(I),9(J))*X(I) 
J=1  1=1 


(2) 


where 


D  =  (0^, 
F(I,J)  = 


3 

D^)  is  in  gauss-centimeters 
f  (9(1)  »«p( J) )  is  in  gammas 
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sin  (e(I) )  *CGs(cp(J) ) 
n(0(I),cp(J))  £  sin  (8(1))  *sin(<p(J)) 
cos  (8(1)) 


9(1)  £  2n(l  -  l)/(Nl  -  l)  is  the  colatitude  (turntable  angle)  (3a) 

<p( J)  =  n ( J  -  1)/N0  is  the  longitude  (tilt  angle)  (3b) 

X(I)  h  [Sin(n/(2*ta  -  2))]2/(2‘N0)  if  I  =  1  or  Nl  (4a) 

£  [sin(n/(2*Nl  -  2))]2/N0  if  I  =  (Nl  +  l)/2  (4b) 

£  |sin(e(I))*sin(TT/(Nl  -  1))|/(2*N0)  if  I  i  1,  (Nl  +  l)/2,  or  Nl.  (4c) 

14.  Next,  the  dipole  moment  is  transformed  into  spherical  coordinates  as 

D  =  (D^  +  D*  + 

9  £  tan-1  £(D^  +  D^V^j'lSO/n  =  colatitude 


cp  £  tan-  (D/Dl)  ‘180/n  =  longitude 


15.  Finally,  uhe  program  computes  the  values  of  two  compensating  magnets:  one 
in  the  xy-plane  and  one  along  the  z-axis.  The  value  of  the  dipole  field  at  one 
meter  is  also  given  to  assist  in  charging  the  magnets  to  the  desired  values. 

Sample  Problem  for  SA2024 

16.  Appendix  D  contains  the  input  and  output  data  for  SA2024  using  the  sample 
problem  represented  in  Figures  5  and  6.  The  file  BN2024»  which  is  used  for 
execution,  is  the  binary  version  of  SA2024.  This  example  was  executed  in  two 
different  ways  on  the  INTERCOM  time -sharing  system  using  the  CDC  6400  computer. 

The  information  typed  in  at  the  teletype  terminal  has  been  underlined.  Data  tapes 
representing  th9  measurement  data  are  generated  ty  the  A/D  equipment  during  the 
measurements.  The  program  automatically  reads  the  data  in  the  proper  format; 
converts  the  data  into  gammas  using  the  calibration  parameters  C6,  C7,  and  C8;  and 
adjusts  the  data  so  that  the  beginning  and  ending  points  for  all  the  curves  have 
nearly  the  same  value.  The  result  of  this  procedure  is  visible  in  the  data 
print-out  on  page  2  of  Appendix  D. 


9 


NCLTR  73-191 


17.  The  first  method  of  data  input  in  Appendix  P  vug  from  the  file  DAT024. 

This  complete  problem  required  only  the  first  three  lines  of  data.  The  measurement 
data  was  read  into  the  file  from  ;in  earlier  execution  of  3A2024.  (The  program 
execution  automatically  generates  the  file  DAT024  if  the  data  is  read  in  from 
tape.)  The  remaining  lines  of  data  initiated  the  computation  of  the  solution  to 
the  same  problem  except  that  the  measurement  data  was  read  in  from  a  data  tape. 

PROGRAM  SA302A 
Introduction 

18.  The  program  SA3024»  listed  in  Appendix  E,  allows  a  more  complete  analysis 
to  be  performed  on  the  data.  The  program  can  be  used  to  compute  the  dipole, 
quadrupole,  and  higher  order  mulu.ipole  terms.  Also  included  is  an  optional  method 
of  integrating  the  data  and  a  data  plotting  option.  The  optional  integrating 
scheme  is  labeled  ''exact"  although  it  is  exact  only  for  magnetic  data  from  a  finite 
number  of  multipole  magnets  centered  at  tho  origin.  This  scheme  is  discussed  in 
more  detail  in  paragraphs  25  through  32  and  in  reference  (a). 

19.  The  program  uses  several  special  subprograms  to  perform  such  tasks  as: 

a.  The  computation  of  spherical  harmonic  coefficients  for  magnetic  field 

data 


b.  The  generation  of  values  of  associated  Legendre  polynomials  and 
Schmidt  functions 

c.  The  inversion  of  an  n  x  n  matrix 

d.  The  interpolation  and  plotting  of  data. 

Some  of  these  subprograms  will  be  discussed  in  more  detail  in  later  sections. 
Input  Data 

20.  The  method  for  entering  the  data  into  SA3024  is  very  similiar  to  the 
method  for  SA2024  with  several  additional  variables.  The  data  is  entered  in  the 
following  order: 

a.  First  line  of  data  or  data  card  -  format:  (615) 

NO  -  The  number  of  curves  of  data  (NO  is  even  and  <  16.) 
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N1  -  The  number  of  equully  spaced  data  points  per  curve  from 

0  thru  360  degrees  colatitude  (III  is  odd  and  £  33.  The  first  and 
last  data  points  for  each  curve  correspond  to  measurements  at 
0  degrees  colatitude.) 

NH  -  The  highest  degree  spherical  harmonic  term  to  be  computed  from 
the  data  (NH  =  1  f  >r  dipoles,  2  for  quaarupoles,  etc.) 

IR  -  The  parameter  that  determines  whether  or  not  to  read  the  data 
from  a  data  file  (IR  ^  C  \eans  that  the  data  will  be  read  from 
the  file  DAT024.) 

IP1  -  The  parameter  that  determines  whether  or  not  the  data  is  to  be 
interpolated  and  plotted  (IP1  ^  0  means  that  the  data  will  be 
interpolated  and  plotted.) 

IV  -  The  parameter  that  determines  which  integrating  scheme  is  to  be 
used  (IW  =  0  means  that  ths  exact,  algebraic  scheme  is  to  be 
used.) 

b.  Second  line  of  data  or  data  card  -  format;  (3F8.4) 

R1  -  The  radius  of  the  measurement  sphere  in  inches 

CV  -  The  value  of  the  calibration  signal  (CS-CZ)  in  gamma 

PY  -  The  scale  factor  ( gammas/inch)  for  the  y-  axis  if  the  data  is  to 
be  plotted  (If  PY  =  0.0  a  factor  will  be  computed  from  the  data.) 

c.  Third  line  of  data  or  data  card  -  format:  (15) 

IP2  -  A  parameter  that  determines  whether  or  not  to  print  the  measured 
data  (IP2  ^  0  means  that  the  data  will  be  printed.) 

d.  Measurement  data  -  format:  (9F6.1)  (These  cards  are  deleted  if 

IR  ^  0.) 

CS  -  The  static  measurement  with  the  calibration  signal 

CZ  -  The  static  measurement  without  the  calibration  signal 
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F(I,J)  -  The  measurement  data  for  I  =  1,2,*‘*,N1  and  J  =  1,2,*«*,N0. 

The  input  data  cycle  may  be  repeated  by  starting  with  new  data  NO,  Nl,  etc. 

The  program  is  terminated  by  setting  the  new  value  for  NO  equal  to  zero. 


Output  Data 

21.  The  program  then  computes  the  spherical  harmonic  coefficients  and  B™ 


based  on  the  equation 
A1 
B1 


=  [<2n+  l)-KLn  +  2/(4n-(n  +  1) )]  J  Jf  (B,»)  t”  (cm 

0  0 


•sin  0d0d<p 


(5) 


for  n  =  0,1, •••,NH  and  m  =  0,l,***,n.  The  numerical  equivalent  of  equation  (5)  ic 


.m 


m 


[,  .  -I  NO  Nl 

(2n  +  1)-Rln  +  2/(4n*(n  +  l))  £  £  F(I,J)  •P®(cos(0(l) ))  • 

JJ=1  1-1  n 

Icos(m*cp  (J) )/ 
sin(mvp(j))j’Y(I) 


(6) 


where 


n  is  the  degree  of  the  spherical  harmonic  term 
m  is  the  order  of  the  spherical  harmonic  term 

P™(cos(0(l)))  is  the  Schmidt  function  of  degree  n  and  order  m.  (These  functions 
are  discussed  in  Appendix  K.) 

Y(I)  is  the  array  of  weighting  factors  for  the  numerical  integration.  (One  of 
two  methods  can  be  used  to  determine  the  values  for  Y(I)  depending  on  the 
parameter  IW.) 

0(1)  =  2n(I  -  1)/(N1  -  1)  is  the  colatitude  (turntable  angle) 
cp ( J)  s  n(J  -  D/NO  is  the  longitude  (tilt  angle). 
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Equation  (5)  givej  an  expansion  for  the  function  f(0,9)  us 

f(6,«p)  -  (n  +  l)/(Rln  +  2)  2  fA^oos(mcp)  +  n®sin(n*p)l  p“(cos(e)).  (7) 

n=0  L  J 


If  the  expansion  is  written  as  f (0 ,cp)  -  £  Tn(3><p)  then  each  f  (0,<p)  represents 
the  field  from  a  multipolo  magnet  of  degree  n.  (Reference  (a)  contains  more  details 
on  the  expansion  of  the  function  f(9,o).) 

22.  In  general,  the  coefficients  A™  and  B^  can  be  stored  as  two-dimensional 
arrays  A(n,m)  and  B(n,m) ,  or,  they  may  be  packed  into  single-dimensional  arrays  as 


A(m  +  1  +  (n*’  +  n)/2)  A™  for  n  =  0,1,2,  •  •  •  and  m  =  0,1,  •  •  •  ,n 


n 


B(ra  +  (n‘  -  n)/2)  h  Bn  for  n  =  1,2,  •••  and  m  =  l,2,***,n. 


23.  ".he  program  SA3024  is  set  up  to  conserve  storage  by  computing  and  storing 
the  coefficients  for  only  one  degree  term  at  a  time  (i.e.,  for  each  fixed  n)  using 
the  equations 


A(m  +  l)  h  Am  for  m  =  0,1,  •••jn 


n 


B(m)  s  B^  for  m  =  1,2,  •••n. 


.0 


(8) 


It  should  be  noted  vihat  the  coefficient  Aq,  corresponding  to  the  monopole  moment, 
would  be  zero  if  the  numerical  integration  was  exact  and  the  data  F(I,J)  was 
correct.  If  the  monopole  moment  is  not  zero,  then  the  data  is  corrected  prior  to 
being  printed  and  prior  to  further  analysis.  Also  for  n  =  1  and  Y(l)  =  X(I)  it 
can  be  shown  that  Eqs.  (l)  (or  (2))  and  (5)  (or  (6))  are  identical  if 

"r*!1 

D2  =  Bi 

D3  =  A^.  (9) 

24.  The  dipole  moment  D  =  (D^,  D^,  D^)  is  computed  and  printed  out  separately 
in  the  program  in  both  rectilinear  and  spherical  coordinates.  The  program  is  also 
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set  up  to  compute  the  quadrupole  moment  for  1  and  J  =  1,  2,  and  3.  This  is 

computed  and  printed  separately  if  NH  2  2.  The  computation  is  based  on  the 
equations 


Q11 

4 

(10a) 

Q22 

(10b) 

Q33 

=  2#2 

(i.e. »  ®22  ^33  ~  ^ 

(10c) 

Q12 

=  /r-B2 

(10d) 

Q13 

=  /T-aJ 

(10e) 

Q23 

=  ^•*2 

(10f) 

Qij 

=  Qji  f°r  ; 

i  and  j  =  1,  2,  and  3. 

(10g) 

The  higher  degree  coefficients  for  n  =  3,4»*,‘>NH  are  printed  only  in  their 
spherical  form. 

Integrating  Schemes 

25.  The  program  SA3024  is  set  up  to  allow  a  choice  between  two  numerical 
integration  schemes  for  Eq.  (6).  These  two  schemes  are  based  on  two  different 
methods  for  determining  the  weighting  factors  |y(I)}.  The  factors  actually 
correspond  to  the  elements  of  spherical  surface  area  assigned  to  each  data  point 
F(I,J).  Therefore,  a  geometrical  description  of  the  two  different  sets  of 
weighting  factors  will  provide  some  insight  into  the  two  methods  of  numerical 
integration.  Figure  7  shows  an  example  of  the  areas  assigned  to  a  data  point  for 
both  integrating  methods.  The  dashed  lines  are  boundaries  for  areas  when  the 
parameter  IW  ^  0.  The  areas  have  values  |x(l)|  as  defined  in  Eq.  (4).  (The 
weighting  factors  | Y( I) }  in  Eq.  (6)  are  then  set  equal  to  |x(I)}.)  The  dashed  lines 
are  equally  spaced  between  data  points  with  equal  intervals  of  longitude  (=  n/NO) 
and  equal  intervals  of  colatitude  (=  2tt/N1)  .  The  weighting  factors  |y(I)  =  X(l)| 
are  easier  and  faster  to  calculate  by  computer  than  the  factors  when  IW  =  0.  The 
resulting  integration  has  good  numerical  stability  and  gives  fairly  accurate 
answers. 
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26.  If  the  parameter  IW  =  0,  then  a  more  exact  Integrating  scheme  is  used. 

The  weights  |y(I)|  are  still  elements  of  area  on  the  surface  of  the  unit  sphere, 

and  they  still  consist  of  equal  intervals  of  longitude.  But  the  intervals  of 
colatitude  (dotted  lines  in  Figure  7)  are  varied  to  make  certain  surface  integrals 
exact  if  the  integrand  consists  of  a  finite  number  of  spherical  harmonic  terms. 

The  highest  degree  term  that  can  be  contained  in  the  integrand  (or  highest  degree 

magnet  that  can  be  represent  by  the  data  F(I,J))  and  still  be  exact  depends  on  the 

parameters  NO  and  Nl.  The  relationship  of  NO  and  N1  to  the  degree  n  and  order  m  of 

the  coefficients  Am  and  Bm  are 

n  n 


NO  £  m  +  1 
Nl  2  4n  +  1. 


(11) 


Since  m  £  n,  as  seen  in  Eqs.  (5)  and  (7),  the  coefficients  for  a  multipole  magnet 
of  degree  n  can  be  approximated  accurately  only  if 


NO  2  n  +  1 
Nl  ?.  4n  +  1. 


(12) 


This  means  that  the  dipole  terms  (n  =  1)  require  that  NO  s  2  and  Nl  2  5.  The 
following  table  shows  values  for  several  multipole  magnets. 


TABLE  1  EXAMPLES  OF  MINIMUM  VALUES  OF  NO  AND  Nl 


n 

NOfe 

NU 

1  (dipole) 

2 

5 

2  (quadrupole) 

3 

9 

3 

4 

13 

4 

5 

17 

5 

6 

21 

6 

7 

25 

7 

8 

29 

8 

9 

33 

27.  It  should  be  noted  here  that  setting  NO,  Nl  =  2,  5  will  not  generally  give 
the  dipole  term  very  accurately  unless  the  higher  degree  terms  are  all  zero.  For 
example,  consider  a  problem  which  has  only  dipole  and  quadrupole  terms,  and  assume 
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that  only  the  dipole  coefficients  are  to  be  computed.  Then  NO,  N1  ;•  3,  9  le 
required  to  insure  the  accuracy  of  the  dipole  computations.  In  general  a  problem 
contains  an  infinite  n.uaber  of  terms.  The  only  cases  when  the  expansion  in  Eq.  (7) 
contains  a  finite  number  of  terms  are  when  there  are  only  a  pure  dipole  (of 
insignificant  length),  a  quadrupole,  und/or,  a  finite  number  of  other  multipole 
magnets  which  are  centered  at  the  origin.  An  offset  dipole  or  a  dipole  of 
considerable  length  (or  any  offset  multipole  magnet  of  degree  n)  requires  an 
infinite  number  of  terms  for  representation  by  Eq.  (7).  In  general,  it  is  best  to 
select  NO  and  Ml  as  large  as  possible  with 

NO  =  (in  -  l)/2.  (13) 

28.  For  IW  =  0,  the  weights  Y(I)  are  composed  of  two  factors  D(I)  and  C,  i.e., 

Y(I)  =  D(I)*C  (14) 

for  I  =  1,2,***,N1  and  J  =  1,2,**#,N0  (see  reference  (a)).  The  constant  C 
represents  the  equally  spaced  intervals  of  longitude  with  value 

C  =  tt/NO.  (15) 

The  factors  D(l)  are  determined  by  solving  a  set  of  simultaneous  linear  equations. 
The  equations  can  be  set  up  in  a  number  of  ways  since  the  factors  are  symmetric 
with  respect  to  the  values  of  colatitude  of  0  =  tt/2  and  0  =  n.  The  method  used  in 
SA3024  is  to  set  up  and  solve  the  equations  for  factors  representing  the  intervals 
between  9  =  0  and  n/2,  and  then  to  use  symmetry  to  determine  the  other  weights. 

This  procedure  involves  two  different  cases  based  on  the  odd  integer  Nl.  Figure  8 
shows  the  intervals  of  colatitude  for  two  examples  j  one  when  (Nl  +  l)  is  a  multiple 
of  4  and  one  when  it  is  not.  The  examples  give  rise  to  two  different  sets  of 
equations  for  the  factors  D(I)  as  follows: 


a.  Equations  when  (Ml  +  l)  is  a  multiple  of 


9(1)  =  2nd  -  1)/ (Nl  -  1) 

N3  ?  largest  integer  ^  (Nl  +  3)/4 


(3a) 

(16) 
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Then 


N3 

E  D(J)  =  1 

J=1 


N3 

£  (cos  o(j)) 

j=i 


(21  -  2) 


*D(J)  =  1/(21  -  1) 


for  I  =  2,3, *  *  *  ,N3 


d[(N1  +  3)/2  -  j]  =  D(j) 


for  J  =  2,3, *  *  * ,N3 


D(N1  +  1  -  J)  =  D(J) 


for  J  =  1,2, • •*, (N1  -  l)/2 


D[(N1  +  l)/2]  =  2D(l) 


b.  Equations  when  (N1  +  1)  ia  not  a  multiple  of  4 

Let  9(1)  and  h'3  be  defined  as  in  Eqs.  (3a)  and  (16).  Then 


£  2D(J)  +  D(N3  +  1)  = 


J=1 


(17a 


(17b; 


(17c; 


<17d; 


(17e! 


(18a; 


(cos  9(J))(21  "  2).D(J)  =  1/(21  -  1)  (18b 

J=1 

for  I  =  2,3,***,N3  +  1.  Equations  (17c),  (17d),  and  (17e)  remain  unchanged. 

29.  In  Eqs.  (17a)  and  (17b)  the  I  and  J  "subscripts"  can  be  considered  to 
designate  the  row  and  column  for  the  coefficient  matrix  for  N3  simultaneous  linear 
equations  in  N3  unknowns.  This  also  follows  in  Eqs.  (18a)  and  (18b)  except  for  an 
(N3  +  1)  x  (N3  +  1)  system  of  linear  equations.  The  system  of  equations  for  two 
examples  are  given  below. 

30.  Let  N1  =  7.  Then  (N1  +  l)  =  8  is  a  multiple  of  4»  and 

N3  =  2  £  (7  +  3)/4  =  2.5 
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0(1)  ,0(2)  =  0,  60° 
cos (60)  =l/2. 


Therefore  Eqs.  (17a)  and  (17b)  imply  that 


D(l)  +  D(2)  =  1 
D(l)  +  D(2)/4  =  1/3. 


These  equations  are  satisfied  by 

D(l)  =  1/9,  D(2)  =  8/9. 

The  remaining  equations,  (16c),  (I6d) ,  and  (I6e),  imply  that 

D(l),  D(2),  •••,  D(7)  =  1/9,  8/9,  8/9,  2/9,  8/9,  8/9,  l/9. 

31.  Next,  let  N1  =  9.  Than  (Ml  +  l)  =  10  is  not  a  multiple  of  4,  and 

N3  =  3  *  (9  +  3)/4  -■  3.0 
0(1), 0(2), 0(3)  =  0,  45°,  90° 
cos  (45°)  =  1//2. 

Therefore,  Eqs.  (18a)  and  (18b)  imply  that 

2D(1)  +  2D (2)  +  D(3)  =  2 
D(l)  +  D(2)/2  =  1/3 
D(l)  +  D(2)/4  =  1/5- 

The  solution  to  these  equations  is 

D(l),  D(2),  D(3)  =  1/15,  8/15,  4/5. 

The  remaining  equations,  (17c),  (17d),  and  (17e) ,  imply  that 

D(l),  D(2),  •••,  D(9)  =  1/15,  3/15,  4/5,  8/15,  2/15,  8/15,  4/5,  8/15,  l/l5. 

32.  Reference  (a)  gives  a  more  theoretical  approach  to  the  methods  of 
integration  and  describes  another  method  for  determining  the  factors  D(l)  vising  a 
polynomial  approach.  This  method  was  compared  with  the  direct  inversion  of  the 
Eqs.  (16)  and  (17) .  The  results  indicated  that  the  direct  inversion  method  was 
more  stable  numerically  and  took  less  computer  time. 
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33.  All  the  programs  use  a  mixed  system  of  units.  In  general,  the  magnetic 
units  are  in  the  cgs  system,  e.g.,  the  magnetic  field  intensity  H  (f(e,cp)  in  Eq.  (5)) 
is  in  gammas  (10  **  oersted  with  a  permeability  of  one).  The  units  for  a  multipole 
moment  of  degree  n  is  pole-centimeter11,  e.g.,  monopole  moment  is  in  poles,  dipole 

moment  is  in  pole-centimeters  (cm),  quadrupole  moment  is  in  pole-cm  ,  The  unit 

2 

pole  is  equivalent  to  gauss-cm  .  The  unit  of  length  is  inches.  This  is  used  for 
the  measurement  radius  R1  and  the  multipole  position  vectors  P  (for  programs 
SA4024  and  SA5024)  •  The  unit  of  gammas  is  used  for  the  data  array  F(I,.T)  and  for 
the  error  parameters  EG  and  ED  (for  programs  SA4024  and  SA502A) .  Any  parameters 
that  represent  angles  or  angular  errors  are  in  degrees. 

Sample  Problems 

34.  Appendix  F  contains  the  input  and  output  data  for  SA3024  using  the  same 
measurement  data  as  in  SA2024  (Figures  5  and  6).  The  file  BN3024,  used  in  the 
execution,  is  the  binary  version  of  SA3024.  Only  the  first  16  binary  records 
(subprograms)  are  used  when  executing  via  INTERCOM.  As  before,  the  example  was 
executed  in  two  different  ways  on  the  INTERCOM  System.  The  problem  was  also 
submitted  to  BATCH  processing  via  INTERCOM  to  demonstrate  a  method  of  using  the 
plotting  option  of  the  program.  One  of  the  two  identical  plots  that  resulted  from 
the  BATCH  processing  is  included  in  Figure  9.  Although  the  example  in  Section  II 
of  Appendix  F  was  set  up  to  use  the  GOULD  electrostatic  plotter,  the  data  was  later 
plotted  on  the  CALCOMP  to  simplify  reproduction  problems. 

35.  Several  characteristics  of  the  analysis  can  be  observed  by  comparing 
Appendices  D  and  F  and  Figures  6  and  9.  The  first  characteristic  is  the  data 
processing.  This  involves  the  conversion  of  the  data  units  and  the  adjustment  of 
the  curves  so  that  all  the  curves  begin  and  end  as  near  as  possible  to  the 
beginning  and  ending  of  the  first  curve.  The  curve  adjustment  can  be  observed  by 
comparing  the  print  out  of  the  data  tape  on  page  D-l  and  the  data  printed  on 
page  D-2.  The  first  points  of  curves  1  and  2  on  the  data  tape  are  -504.3  and 
-902.8.  After  the  data  processing  these  points  are  -504.3  and  -502.8.  Another 
data  adjustment  in  SA3024  has  to  do  with  the  monopole  moment.  Since  the  monopole 
moment  should  be  zero  if  the  d°.ta  has  absolute  accuracy,  then  the  data  is  adjusted 
to  produce  this  condition.  The  procedure  involves  the  computation  of  the  monopole 
moment,  and  then,  the  subtraction  of  the  magnetic  field  of  the  monopole  component 
from  the  data.  A  comparison  of  the  data  printod  on  page  D-2  and  on  pages  F-2  and 
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F-3  show  a  difference  of  ubout  24  gammas.  This  appears  as  the  monopole  moment  of 
14.3* **  printed  on  page  F-2.  The  data  plotted  in  Figure  9  represents  the  data  that 
would  have  been  measured  if  absolute  accuracy  was  attainable. 

36.  An  example  of  the  method  of  printing  out  the  spherical  harmonic 

coefficients  is  shown  on  page  F-3.  For  each  nth  degree  harmonic  term,  the 

coefficients  Am  for  m  =  0,l,***,n  are  printed  on  the  first  line,  and  the 

coefficients  3^  for  m  =  1,2, '"jn  are  printed  on  the  second  line.  It  should  be 

noted  that  in  the  definitions  related  to  Eqs.  (5)  and  (6),  the  coefficients  Am  and 
m  n 

B  are  coefficients  for  the  Schmidt  polynomials  and  not  for  the  associated 
Legendre  polynomials.  The  relationship  is  discussed  in  more  detail  in  Appendix  K. 

PROGRAM  S.44024 
Introduction 

37.  The  program  SA4024,  listed  in  Appendix  G,  was  devised  to  assist  in  the 
conduct  of  error  studies  relating  to  the  analysis  of  satellite  magnetism.  The 
program  is  set  up  to  generate  data  simulating  measurements  around  a  specified 
system  of  multipole  magnets  representing  the  satellite.  Simulated  errors  can  be 
inserted  into  the  generated  data  to  represent  position  and  instrumentation  errors. 
The  generated  data  is  written  on  a  data  file  (DAT024)  in  the  same  format  as  the  one 
used  in  the  data  acquisition  procedures  with  the  punched  paper  tape.  The  data  file 
is  generated  in  a  form  that  can  be  used  with  programs  SA2024  and  SA3024.  The 
program  SA4024  also  contains  the  plotting  option. 

38.  Special  subprograms  used  in  the  program  perform  such  tasks  as: 

a.  The  computation  of  the  magnetic  field  vector  at  a  remote  location 
from  a  multipole  magnet 

b.  The  generation  of  values  of  associated  Legendre  polynomials  and 
Schmidt  functions 

c.  The  interpolation  and  plotting  of  the  magnetic  data. 

Input  Data 

39.  The  input  data  for  SA4024  varies  considerably  from  the  preceding  programs 
since  it  includes  specifications  for  multipole  magnets  and  data  errors.  The  data 
is  entered  in  the  following  order: 
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a.  First  line  of  data  or  data  card  -  format:  (415) 

NO  -  The  number  of  curves  of  data  (NO  Is  even  and  s-  16.) 

N1  -  The  number  of  equally  spaced  data  points  per  curve  from  0  thru  360 
degrees  colatitude  (N1  Is  odd  and  £  33.  The  first  and  last  data 
points  for  each  curve  correspond  to  measurements  at  0  degrees 
colatitude.) 

NH  -  The  total  number  of  different  harmonics  (degrees)  of  multipole 
magnets  to  be  considered 

IP  -  The  parameter  that  determines  whether  or  not  the  data  is  to  be 
interpolated  and  plotted  (IP  ^  0  means  that  the  data  will  be 
interpolated  and  plotted.) 

b.  Second  line  of  data  or  data  card  -  format:  (5F8.4) 

Rl  -  The  radius  of  the  measurement  sphere  in  inches 

EG  -  The  error  (in  gamma)  to  be  randomly  inserted  into  the  data  to 
represent  instrumentation  inaccuracies 

EA  -  The  angular  error  (in  degrees)  to  be  randomly  inserted  into  the 
data  to  represent  measurement  position  errors 

ED  -  The  constant  error  (in  gammas)  to  be  inserted  into  the  data  to 
represent  offset  in  the  instrumentation.  (This  will  be  analyzed 
as  monopole  moment.) 

PY  -  The  scale  factor  (gammas/inch)  for  the  y-axis  if  the  data  is  to 
be  plotted.  (If  PY  =  0.0  a  factor  will  be  computed  from  the 
data.) 

c.  Third  line  of  data  or  data  card  -  format;  (7A10) 

F9  -  The  format  for  reading  and  printing  the  spherical  coefficients 
A(I)  and  B(l),  e.g.,  (1H  ,7E10.4) 

All  of  the  following  data  is  repeated  "NH"  times: 
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d.  Next  line  of  data  or  data  card  -  format:  (215) 

NN  -  The  harmonic  number  (degree)  of  the  multipole  data  being  read  in 
(NN  =  1  for  dipoles,  2  for  quadrupole,  etc.) 

NM  -  The  number  of  multipoles  with  harmonic  number  NN 

The  following  data  is  repeated  "NM"  times: 

e.  Next  lines  of  data  or  data  cards  -  format:  (3F8.4) 

P  -  The  position  vector  (in  inches)  of  the  multipole  in  rectilinear 
coordinates  (Px,  Py,  Pz.) 

f .  Next  lines  of  data  or  data  cards  -  format:  F9 

A(I)  -  The  spherical  coefficients  A^~  1  for  the  raultipole  of  degree 
NN  where  I  =  1,2,***,NN  +  1  (The  order  of  the  Ith  coefficient 
is  I  -  1.) 

g.  Next  lines  of  data  or  data  cards  -  format:  F9 

E(I)  -  The  spherical  coefficients  Bj^  for  the  multipole  of  degree  NN 
where  I  =  1 , 2 ,  •  •  • , NN  (The  order  of  the  Ith  coefficient  is  I.). 

(The  relationships  between  spherical  and  rectilinear  coefficients  for  dipoles  and 
quadrupoles  are  given  in  Eqs.  (9)  and  (10).) 

Output  Data 

40.  The  program  computes  data  representing  measurements  of  the  specified 
system  of  multipole  magnets.  There  are  NO  curves  of  data  computed,  each  containing 
N1  data  points.  The  computations  are  made  by  using  Eq.  (7).  For  instance  assume 
that  the  system  has  NM  multipoles  of  degree  N  and  that  fnj(e,cp)  represents  (as  in 
Eq.  (7))  the  normal  component  of  the  magnetic  field  from  the  jth  multipole  of 
degree  N.  Then  the  total  magnetic  field  fn(8,<p)  for  all  multipoles  of  degree  N  is 

NM 

fn(e,<p)  -  E  fnj(e.<p)  (19) 
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If  NH  is  the  total  number  of  different  degrees  for  the  system  of  multipoles  then 
the  normal  component  of  the  magnetic  field  for  the  total  system  is 

NH 

f(e,cp)  =  £  f(e,<p) .  (20) 

N=1 

The  program  sets  up  the  data  array  F(I,J)  in  this  manner.  (F(I,J)  is  defined  in 
Eq.  (2).)  The  data  array  is  then  written  onto  the  data  file  DAT324.  The  file  can 
then  be  used  with  either  program  SA2024  or  program  SA3024.  A  data  tape  can  also 
be  made  of  this  file  by  listing  the  file  under  SYSTEM/ BASIC  with  the  tape  punch 
unit  on. 

Sample  Problems 

41.  SA4024  was  used  to  compute  the  data  for  several  examples.  These  are 

listed  in  Appendix  H  and  in  Figures  10  through  24.  BN4024  is  the  binary  version  of 

SA4024.  When  executing  the  program  via  INTERCOM  only  the  first  nine  binary  records 
are  used.  The  first  section  in  Appendix  H  presents  the  input  and  output  data  for 
the  sample  problem  illustrated  in  Figure  5.  The  instrumentation  inaccuracy  was 
assumed  to  be  +1.0  gamma  by  setting  EG  =  1.0.  The  positions  for  the  measurements 
of  the  data  were  considered  to  have  inaccuracies  of  +0.2  degrees  (EA  =  0.2).  The 
set  of  data  curves  were  assumed  to  be  offset  by  25.0  gammas  (ED  =  25.0).  The  data 
curves  representing  the  simulated  measurements  are  listed  on  page  H-3.  Section  II 
of  Appendix  H  contains  the  data  file  DAT024  that  was  generated  with  this  data  in  a 
format  like  the  data  tape.  In  Section  III  of  Appendix  H  the  sample  problem  and 
several  other  problems  were  submitted  to  BATCH.  The  resulting  data  was  also 
plotted.  The  data  in  Figure  10  for  the  sample  problem  is  nearly  identical  to  the 
data  in  Figure  9.  The  remaining  examples  in  section  III  represent  the  individual 

and  combined  data  for  the  first  eight  spherical  harmonics  (n  =  1,2, . ,8)  of  the 

sample  problem.  These  will  be  discussed  in  more  detail  in  later  paragraphs. 

42.  SA4024  was  also  used  to  show  data  curves  for  individual  components  of 
dipole  and  quadrupole  moments.  These  are  included  in  Figures  11  through  24.  A 
small  diagram  is  also  included  on  each  figure  to  illustrate  the  particular 
component  that  is  represented  by  the  curves.  Curves  are  shown  for  components  in 
both  spherical  and  rectilinear  coordinates  according  to  Eqs.  (9)  and  (10). 
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PROGRAM  SA5024 

Introduction 

43.  The  program  5A5024,  listed  in  Appendix  I,  was  devised  to  simplify  the 
error  studies.  It  performs  functions  similiar  to  both  programs  SA3024  and  SA4024> 
i.e.,  SA5024  is  both  a  data  generation  and  a  data  analysis  program.  A  system  of 
multipole  magnets  is  specified  in  the  input  data  to  represent  the  satellite  as  in 
SA4024.  Since  the  data  is  analyzed  as  it  is  generated  it  is  not  written  onto  a 
data  file  as  in  SA4024.  However,  the  program  does  include  the  plotting  option  when 
executing  in  the  BATCH  mode.  Also,  the  integration  option  discussed  in  paragraphs 
25  through  32  is  included.  The  primary  subprograms  in  SA5024  perform  most  of  the 
functions  already  described  in  the  sections  on  SA3024  and  SA4024. 

Input  Data 

44.  The  input  data  for  SA5024  resembles  the  input  data  for  the  program  SA4024 
since  it  consists  mostly  of  specifications  for  multipole  magnets  and  data  errors. 
The  data  is  entered  in  the  following  order: 

a.  First  line  of  data  or  data  card  -  format:  (715) 

NO  -  The  number  of  curves  of  data  (NO  is  even  and  £  16.) 

N1  -  The  number  of  equally  spaced  data  points  per  curve  from 

0  through  360  degrees  colatitude  (N1  is  odd  and  £  33.  The  first 
and  last  data  points  for  each  curve  correspond  to  measurements 
at  0  degrees  colatitude.) 

NHL  -  The  total  number  of  different  harmonics  (degrees)  of  multipole 
magnets  to  be  considered 

NH2  -  The  harmonic  number  (degree)  representing  the  highest  degree 
spherical  harmonic  term  to  be  computed  from  the  data  (NH2  =  1 
for  dipoles,  2  for  quadrupoles,  etc.) 

IP1  -  The  parameter  that  determines  whether  or  not  the  data  is  to  be 
interpolated  and  plotted  (IP1  ^  0  means  that  the  data  will  be 
interpolated  and  plotted . ) 
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IP2  -  The  parameter  that  determines  whether  or  not  the  magnetic  data 
is  to  be  printed  (IP2  £  0  means  that  the  data  will  be  printed.) 

IW  -  The  parameter  that  determines  which  integrating  scheme  is  to  be 
used  (IW  =  0  means  that  the  exact,  algebraic  scheme  is  to  be 
used. ) 

b.  Second  line  of  data  or  data  card  -  format;  (5F8.4) 

til  -  The  radius  of  the  measurement  sphere  in  inches 

EG  -  The  error  (in  gammas)  to  be  randomly  inserted  into  the  data  to 
represent  instrumentation  inaccuracies 

EA  -  The  angular  error  (in  degrees)  to  be  randomly  inserted  into  the 
data  to  represent  measurement  position  errors 

ED  -  The  constant  error  (in  gammas)  to  be  inserted  into  the  data  to 

represent  offset  in  the  instrumentation  (this  will  be  analyzed  as 
mo.iopole  moment) 

PY  -  The  scale  factor  (gammas/inch)  for  the  y-axis  if  the  data  is  to 
be  plotted  (if  PY  =  0.0  a  factor  will  be  computed  from  the  data.) 

c.  Third  line  of  data  or  data  card  -  format:  (7A10) 

F9  -  The  format  for  reading  and  printing  the  spherical  coefficients 
A(I)  and  B(I),  e.g.,  (1H  ,7E10.4) 

All  of  the  following  data  is  repeated  "NH"  times: 

d.  Next  line  of  data  or  data  card  -  format:  (215) 

NN  -  The  harmonic  number  (degree)  of  the  multipolc  data  being  read  in 
(NN  =  1  for  dipoles,  2  for  quadrupole,  etc.) 

NM  -  The  number  of  multipoles  with  harmonic  number  NN 
The  following  data  is  repeated  "NM"  times: 
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e.  Next  lines  of  data  or  data  cards  -  format:  (3F8.4) 

F  -  The  position  vector  (in  inches)  of  the  multipole  in  rectilinear 

coordinates  (F  ,  P  ,  F  ) 
x  y  z 

f .  Next  lines  of  data  or  data  cards  -  format:  F9 

A(l)  -  The  spherical  coefficients  for  the  multipole  of  degree  NN 
where  I  =  1,2,»**,NN  +  1  (The  order  of  the  Ith  coefficient  is 
I  -  1.) 

g.  Next  lines  of  data  or  data  cards  -  format:  F9 

B(l)  -  The  spherical  coefficients  for  the  multipole  of  degree  NN 
where  I  =  1,2,»**,NN.  (The  order  of  the  Ith  coefficient  is 

1.). 


(The  relationships  between  spherical  and  rectilinear  coefficients  for  dipoles  and 
quadrupoles  are  given  in  Eqs.  (9)  and  (10).) 

Output  Data 

45.  Initially,  the  program  SA5024  computes  the  simulated  measurement  data  as 
in  Eqs.  (19)  and  (20).  Next,  the  spherical  harmonic  coefficients  are  computed 
according  to  Eq.  (6).  The  program  also  computes  the  exact  dipole  moment  from  the 
multipole  specifications.  This  value  is  compared  with  the  dipole  moment  computed 
from  the  simulated  measurement  data.  The  percent  error  is  printed  as  part  of  the 
output  data. 

Sample  Problems 

46.  Appendix  J  contains  the  input  and  output  data  for  several  problems  using 
SA5024.  As  in  the  other  programs  the  binary  version  of  EA5024  is  the  file  BN5024. 
When  executing  the  program  via  INTERCOM,  only  the  first  15  binary  records  are  used. 
In  the  first  section  of  Appendix  J  an  analysis  was  conducted  of  the  sample  problem 
illustrated  in  Figure  5.  The  parameters  EG,  EA,  and  ED  were  all  set  to  zero 
(page  J-l)  so  that  no  simulated  errors  were  inserted  into  the  data. 

47.  Figure  25  shows  eight  curves  of  the  computed  data  for  the  three  dipoles  in 
the  sample  problem.  Actually,  16  curves,  each  containing  33  data  points,  were  vised 
in  the  computations  (based  on  Eq.  (12)  and  Table  1).  These  values  for  the 
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parameters  NO  and  N1  allowed  the  computation  of  the  spherical  harmonic  coefficients 
for  the  first  eight  multipolo  components.  The  program  5A4024  was  used  to  compute 
eight  data  curves  for  each  raultipolo  component  to  demonstrate  tho  type  of  curves 
representing  each  component.  These  are  presented  in  Figures  26  through  33.  These 
were  also  combined  and  plotted  by  SA4024.  Figure  34  displays  the  combined  data. 

The  first  data  curve  (xz-plano)  was  chosen  to  further  demonstrate  the  characteristics 
of  spherical  harmonic  approximation.  Figure  35  contains  four  curves.  The  first 
curve  is  the  original  data  from  the  sample  problem.  Curve  2  represents  the  dipole 
component.  Curve  3  represents  the  combination  of  dipole  and  quudrupole  components. 
Curve  4  represents  the  combination  of  the  first  eight  multipole  components.  The 
convergence  of  the  series  in  Eq.  (7)  is  not  obvious  from  the  coefficients  computed 
in  Section  I  of  Appendix  J.  Table  2  summarizes  the  peak  coefficients  and  the  data 
peaks  for  each  degree  n.  Although  the  magnitude  of  the  peak  coefficient  increases 
with  increasing  n,  the  data  peak  (magnetic  field  at  96  inches)  decreases.  In  fact, 
the  first  eight  multipole  components  account  for  about  97  or  98  percent  of  the 
original  data  curves.  This  indicates  that  higher  degree  components  are  relatively 
insignificant. 


TABLE  2 

PEAK  DATA  FOR  THE  MULTIPOLE  COMPONENTS  OF  THE  SAMPLE  PROBLEM 


Degree  n 

(  Max  UAj,  |b“|}) 

O^n 

Data  Peak  (for  8  curves) 

1 

o 

■f'' 

13.79 

2 

-.9472X10 7 

803.79 

3 

.2341X1010 

839.34 

4 

.1545X1012 

367.51 

5 

-.2812X1014 

211.03 

6 

+.4533X1016 

189.44- 

7 

+.3541X1013 

57.51 

8 

-.4517X1020 

35.47 

Original 

1817.94 

Sum  of  Components 

1786.61 

48.  Section  II  of  Appendix  J  demonstrates  the  procedure  for  submitting  the 
program  SA5024  for  BATCH  execution.  The  data  specifies  two  problems  consisting  of 
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offset  dipoles*  In  the  first  problem  the  dipole  is  aligned  parallel  to  the  x-axis 
and  offset  along  the  x-axis.  The  resultant  curves  are  presented  in  Figure  36. 

The  second  problem  is  a  dipole  aligned  parallel  to  the  y-axis  and  offset  along  the 
x-axis.  These  curves  are  presented  in  Figure  37.  A  small  diagram  is  included  in 
each  figure  to  demonstrate  the  geometric  configuration, 

49.  A  small  error  study  was  made  to  demonstrate  the  relationship  between  the 
accuracy  of  the  dipole  analysis j  the  parameters  NO,  Nl,  and  Rlj  and  the  measurement 
errors  (represented  by  EG  and  EA).  The  sample  problem  in  Figure  5  was  again 

3 

selected.  This  example  has  a  resultant  dipole  moment  of  1000  gauss-cnr  ,  but  the 
magnetic  field  from  this  dipole  component  is  embedded  in  the  large  field  from 
quadrupole  and  higher  terms.  Curve  2  in  Figure  35  demonstrates  this  condition. 

Also  Table  2  shows  that  the  peak  of  the  dipole  curves  is  only  13.79  gammas  out  of  a 
total  of  1817.94  gammas  for  the  total  system.  Table  3  contains  a  summary  of  the 
study.  Several  different  values  of  NO,  Nl,  IW,  Rl,  EG  and  EA  were  used.  The 
indications  are  that  increasing  Rl  doesn't  help  much  if  EA  and  EG  are  too  large. 
Also,  there  isn't  much  improvement  in  the  accuracy  of  the  computations  when  using 
the  exact  integration  schemo  (i.e.,  when  setting  IW  =  0).  Probably  the  most 
significant  observation  is  that  the  parameter  EA,  representing  position  errors,  has 
a  much  greater  effect  on  the  analysis  accuracy  than  the  parameter  EG,  representing 
instrumentation  errors. 
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TABLE  3 

MAXIMUM  ERROR  VERSUS  PARAMETRIC  VARIATIONS  IN  COMPUTING  THE  DIPOLE  MOMENT  FOR  THE  SAMPLE  PROBLEM 
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Chapter  4 

PRINCIPAL  SUBPROGRAMS 


INTRODUCTION 

50.  The  programs  described  in  the  preceding  sections  were  constructed  to 
utilize  several  algorithms  which  were  incorporated  into  functions  and  subroutines. 
These  include  algorithms  for  computing  the  spherical  harmonic  coefficients, 
computing  the  vector  magnetic  field  emanating  from  a  multipole  magnet,  computing 
the  associated  Legendre  Polynomials,  computing  the  Schmidt  polynomials,  and 
interpolating  and  plotting  data  curves.  The  subprograms  have  been  code  in  a 
manner  which  makes  them  useful  as  building  blocks  for  other  programs.  They  are 
discussed  separately  in  the  following  paragraphs. 

SUBROUTINE  AMPMNT 

51.  The  subroutine  AMPMNT  is  used  to  compute  the  spherical  coefficients  Am 
and  for  the  data  array  F(I,J).  The  computation  is  based  on  Eq.  (6).  The 
subroutine  is  constructed  to  compute  the  coefficients  for  only  one  degree  at  a 
time.  The  calling  sequence  is 

CALL  AMPMNT  (NO,  Nl,  N,  Rl,  F,  P,  A,  B) 
where  the  arguments  are  defined  as  follows: 
a.  Input 

NO  -  The  number  of  curves  of  data 

Nl  -  The  number  of  equally  spaced  data  points  per  curve  from 
0  through  360  degrees  colatitude 

N  -  The  degree  of  the  spherical  harmonic  coefficients  to  be  computed 

Rl  -  The  radius  of  the  measurement  sphere  in  inches 
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F(IJ)  -  The  measured  data  for  IJ  =  I  +  (J  -  l)*Nl,  I  =  1,2, ***,N1>  and 
J  =  1,2,**»,N0  (The  data  is  stored  in  a  one -dimensional  array 
to  conserve  storage,  i.e.,  equating  the  one-dimensional  array 
to  the  two-dimensional  array  in  Eq.  (6)  gives  F(IJ)  s  F(I,J).) 

P(I)  -  The  first  "(Nl  +  l)/2"  weighting  factors  Y(I)  in  Eq.  (6),  i.e., 
P(I)  =  Y(I)  for  I  =  1,2, • *  * , (Nl  +  l)/2. 


b.  Output 

A(M  +  1)  -  The  spherical  coefficients  Am  for  M  =  0,1,2, ***,N  (see 
Eq.  (8)) 

B(M)  -  The  spherical  coefficients  B™  for  M  =  1,2,3,  •**,N  (see  Eq.  (8)). 

52.  There  are  several  other  subroutines  that  are  used  to  support  AMPMNT  in 
addition  to  the  standard  FORTRAN  IV  machine  routines.  AMPMNT  internally  calls  a 
subroutine  labeled  POLVAL  which  in  turn  uses  functions  labeled  SPNM,  PNM,  and  ANF. 
These  routines  are  used  to  compute  the  appropriate  values  for  the  Schmidt 
polynomials  p“(cos (e (I) ) )  in  Eq.  (6).  Also,  the  weights  P(I)  are  set  up  externally 
by  special  subroutines  before  being  input  to  the  AMPMNT  subroutine.  This  process 
requires  the  use  of  subroutines  labeled  WGT1,  WGT2,  WGT3,  and  GAUSEL.  Listings  of 
all  of  these  subroutines  are  included  in  Appendix  I. 

SUBROUTINE  AMPFLD 

53.  The  subroutine  AMPFLD  is  used  to  compute  the  magnetic  field  at  the  point 
R  from  a  multipole  magnet  of  degree  n  centered  at  the  point  P.  The  magnet  is 
specified  in  terras  of  the  spherical  harmonic  coefficients  A^  and  B^.  The  calling 
sequence  is 


CALL  AMPFLD  (R,  P,  N,  A,  B,  F) 
where  the  arguments  are  defined  as  follows: 
a.  Input 

R(I)  -  The  rectilinear  coordinates  (in  inches)  of  the  point  at  which 
the  field  is  to  be  computed  (R(l)  =  x-coor.,  R(2)  =  y-coor., 
and  R(3)  =  z-coor.) 
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P(I)  -  The  rectilinear  coordinates  (in  inches)  of  the  center  position 
of  the  multipola  magnet  (P(l)  =  x-coor,,  P(2)  =  y-coor.,  and 
P(3)  =  z-coor.) 

N  -  The  harmonic  degree  of  the  multipole  magnet 

A(M  +  1)  -  The  spherical  coefficients  for  M  =  0,1,2,  “'jN  (see 
Eq.  (8)) 

m 

B(M)  -  The  spherical  coeficients  Bn  for  M  =  1,2, “'jN  (see  Eq.  (8)) 
b.  Output 

F(I)  -  The  total  magnetic  field  in  rectilinear  coordinates  (Hx  =  F(l), 

H  =  F(2),  and  H  =  F(3)). 
y  z 

54.  The  subroutine  computes  the  total  magnetic  field  vector  for  a  single 
multipole  magnet.  The  computations  are  based  on  relationships  that  are  simlliar  to 
Eq.  (7)  except  that  only  a  single  multipole  magnetic  (N  is  fixed)  is  considered. 
Also,  the  subroutine  gives  all  three  rectilinear  components  of  the  magnetic  field 
instead  of  just  the  radial  component.  The  relationships  are  presented  below  using 
terminology  that  can  be  found  in  references  (b)  and  (c).  Let  R^  be  defined  as  the 
vector  from  the  magnet  to  the  point  R,  i.e., 

Rx  =  R  -  P  (21) 

where  R  and  P  are  as  defined  above.  Next,  let 

%  =  (R1,  9,  0)  (22) 

be  the  representation  of  in  spherical  coordinates  where  R^  is  the  vector  length, 
8  is  the  colatitude,  and  9  is  the  longitude  relative  to  a  system  of  coordinates 
centered  at  the  multipole  position.  Now,  define  an  orthonormal  set  of  vectors 
r,  0,  and  9  in  spherical  coordinates  as 

r  =  cos  9  sin  0  i  +  sin  9  sin  0  j  +  cos  0  k  (23a) 

0  =  cos  9  cos  0  i  +  sin  9  cos  0  j  -  sin  0  k  (23b) 

9  =  -sin  9  i  +  cos  9  j  (23c) 
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where  I,  J,  and  it  represent  the  orthonormal  set  of  vectors  along  the  x,  y,  and 
z-axis,  respectively  (see  Figure  1).  It  can  be  seen  that 

r  =  fj/Rj/  ( 

Then,  the  total  field  vector  Hn(R)  for  the  nth  degree  multipole  is  given  as 

H  (5)  =  H„  (R)?+H.(R)e  +  H  (it)?  ( 


where 


H(R) 

nr 


[(n  +  l)/R-.n  3  2  (Am  cos  mcp  +  Bm  sin  mp)Pm(cos  0) 

1  DF=0  n  11  11 


(26a) 


Hne(R)  =  (1/R,11  )  £  (A®  ccs  +  BjsJniitfc”  Pn  (cos  9) 

m^O 

-m  cos  0  P^(cos  0)/sin  0] 


(26b) 


H  (R)  E  (l/ft11  +  2)  £  m(Am  sin  ntp  -  B®  cos  mcp)p“(cos  0)/sin  0.  (26c) 

ncp  i  npQ  n  n  n 


The  coefficient  C  ,  in  Eq.  (26b),  has  the  value 


C*  =  [in  -  m)  (n  +  m  +  »]*  for  (m  >  0) 
=  [n(n  +  l)/2]^  for  (m  =  0). 


Also,  the  terms  which  have  sin  0  as  a  divisor  are  computed  using  the  following 
identities: 


2mPn>m(c°s  9)/ sin  0  =  (n  -  m  +  l)(n  -  m  +  2)?^^^ (cos  9)  +  pn+1)nffl(cos  0) 

for  (m  >  0) 

=  0  for  (m  =  0) 

_m,  »  (n  - 


O003  9>  =  I2  Pn,m^cos  9>  for  >  °> 

=  Pn  q(cos  0)  for  (m  =  0). 
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The  function  P^  m(cos  8)  represents  the  associated  Legendre  polynomial  of  degree  n 

and  order  m.  P^(cos  0)  represents  the  Schmidt  polynomial  of  degree  n  and  order  m. 

These  polynomials  are  discussed  in  more  detail  in  Appendix  K.  The  radial  component 

fn(<p,8)  of  the  magnetic  field  at  the  point  R  is  computed  from  the  total  field 

H  (R)  as 
n  ' 


fnM)  =  Hn(R)  •  R/(R  •  R)*. 


(29) 


55.  The  subroutine  AMPFLD  uses  several  external  subprograms  including  SPNM, 
PNM,  ANF,  SPCOOR,  and  SUM.  These  are  listed  in  Appendix  I.  The  subprograms  SPNM, 
PNM,  and  ANF  are  used  to  compute  the  Schmidt  and  associated  Legendre  polynomials. 
The  subroutines  SPCOOR  and  SUM  are  used  in  mathematical  operations  with  vectors. 
SPCOOR  transforms  a  vector  from  rectilinear  to  spherical  coordinates.  SUM 
multiplies  vectors  and  scalars,  and  then,  adds  the  products. 


FUNCTIONS  PNM.  SPNM,  AND  ANF 

56.  The  function  subprograms  PNM,  SPNM,  and  ANF  are  used  in  the  generation  of 
values  for  spherical  polynomials.  PNM  computes  the  value  of  the  associated 
Legendre  polynomial  P^  ^(x)  of  degree  n  and  order  m  at  the  point  x  for  |x|  &  1. 
ilf  m  =  0  the  subprogram  computes  the  value  of  the  regular  Legendre  polynomial.) 
SPNM  converts  this  value  into  the  Schmidt  function  P®(x) .  ANF  simply  computes  the 
factorial  value  for  the  integer  N.  Let  y  represent  a  variable  used  in  a  computer 
program  ,;hich  is  to  be  set  equal  to  a  polynomial  value.  Then  the  calling  sequence 
for  the  subprograms  is  defined  as  follows: 

y  =  ?n(x)  written  as  Y  =  PNM(N,  0,X)  for  N  s  0  and  |x|  £  1 

y  =  P  (x)  is  written  as  Y  =  PNM(N,M,X)  for  N  a  0,  M  £  0,  and  Ixl  £  1 
n,m  »ii 

y  =  P^(x)  written  as  Y  =  SPNM(N,M,X)  for  N  s  0,  Mi  0,  and  |x|  £  1. 


The  factorial  subprogram  is  used  as  follows: 

y  =  n!  is  written  as  Y  =  ANF(N)  for  N  2  0. 

The  development  and  use  of  these  subprograms  was  reported  in  more  detail  in  an 
internal  technical  note.  This  is  included  in  Appendix  K. 
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SUBROUTINE  DATFLT 

57.  The  subroutine  DATPLT  is  used  to  interpolate  and  plot  the  curves  of  data 
It  is  written  to  make  use  of  either  the  GOULD  electrostatic  plotter  or  the  CALCOMP 
570  pen  plotter.  Most  of  the  data  curves  in  the  enclosed  figures  were  plotted  on 
the  CAPCOMP  plotter.  Figure  38  shows  a  set  of  data  curves  plotted  on  the  GOULD 
plotter.  These  correspond  to  the  curves  in  Figure  6.  The  routine  sets  up  x  and 
y-coordinate  arrays  for  the  magnetic  field  data  F(IJ).  A  plotting  symbol  (the 
curve  number)  is  used  to  mark  each  data  point  along  the  data  curves.  The  data  is 
plotted  as  magnetic  field  versus  the  angle  of  colatitude  as  shown  in  Figure  6.  The 
calling  sequence  is 


CALL  DATPLT  (NO,  Nl,  F,  YDIST) 
where  the  argument  list  is  defined  of  follows: 

NO  -  The  number  of  curves  of  data 

Nl  -  The  number  of  data  points  per  curve 

F(IJ)  -  The  array  of  data  curves  for  IJ  =  J  +  (I  -  1)*N1; 

J  =  1,2,  *  •  *  ,Nlj  and  I  =  1,2,*",N0 

YDIST  -  The  value  in  gamma  to  be  used  for  one  inch  of  the  y-axis  (If 
YDIST  =  0.0  the  subroutine  PKY  is  used  to  determine  a  suitable 
scale  for  the  y-axis . ) . 

58.  The  subroutine  uses  the  external  subprograms  CALCM1,  FNCTON,  and  PKY  for 
execution.  CALCM1  is  contained  in  special  plotting  packages  of  subprograms  that  is 
in  the  NQL  subroutine  library.  There  are  two  separate  packages  that  can  be  loaded 
when  using  the  subroutines  DATPLT  and  CALCM1.  The  package  labeled  G0ULD1  is  loaded 
when  plotting  with  the  GOULD  electrostatic  plotter.  The  package  labeled  CALCM1  is 
loaded  when  plotting  with  the  CALCOMP  plotter.  Also  a  tape  (TAPE99)  must  be  loaded 
with  the  CALCM1  package.  The  subprograms  FNCTON  and  PKY  are  listed  in  Appendix  I. 
FNCTON  computes  the  Fourier  coefficients  for  each  curve  of  data.  These  are  used  to 
increase  the  point  density  of  the  data  to  be  plotted  to  one  point  for  every  five 
degrees  of  colatitude.  This  turns  out  to  be  12  points  per  inch  on  the  graphs  or  a 
total  of  73  points  per  curve.  The  subprogram  PKY  is  used  to  determine  a  suitable 
scale  for  the  y-axis  if  YDIST  is  zero. 
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SUBROUTINE  FNCTON 

59.  The  subroutine  FNCTON  is  used  to  perform  a  Fourier  analysis  on  a  single 
dimensioned  array  of  data  that  represents  the  values  along  a  curve  at  equally 
spaced  intervals.  The  program  is  used  primarily  for  interpolating  data.  The 
calling  sequence  is 

CALL  FNCTON  (F,  N,  C,  CO,  PHI,  N2,  DEV) 
where  the  argument  list  is  defined  as  follows: 

a.  Input 

F(I)  -  The  data  array  representing  the  values  of  the  curve  at  N 
equally  space  values  9(1)  =  2n(I  -  1)/N  for  I  =  1,2,  •••,N 

N  -  The  number  of  data  points 

b.  Output 

C(l)  -  The  array  of  Fourier  amplitudes  for  I  =  1,2,  •**,N2 

CO  -  The  zero  degree  Fourier  amplitude 

PHI(I)  -  The  array  of  Fourier  phase  angles  for  I  =  1,2,*,*,N2 

N2  -  The  number  of  terms  in  the  approximating  Fourier  series 

DEV  -  The  maximum  difference  between  the  data  points  and  the  curve 
defined  by  the  Fourier  series. 


60.  The  coefficients  are  obtained  by  the  following  equations: 


C 

SI 

Cl 


0 


j 

j 


(i/N)  r  f(i) 

1=1 

N 

(2/N)  £  F(I)  •  sin  [2nj(I 
1=1 

N 

(2/N)  £  F(I)  *  cos  [2nj(I 
1=1 


(30) 

1)/n] 

(31a) 

D/m] 

(31b) 
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C.  =  (SlJ  +  Clj)'^  for  j  /  N/2 

=  (Slj  +  Clj)^/2  for  j  =  N/2 

PHIj  =  tan-1(Cl/Sl) 

for  j  =  1,2, • *  * |N/2  +  1. 

61.  This  results  in  the  approximation 
N2 

F(I)  «  CQ  +  £  Cj  sin  [2nj(l  -  1)/N  +  PHIj]  for.  I  =  1,2,  •••N.  (34) 

Any  other  set  of  N*  equally  spaced  values  which  begin  at  0(1)  =0  can  be  computed 
by  substituting  N*  in  place  of  N  in  Eq.  (34)  •  DATPLT  uses  the  value  of  72  for  N* . 


(32) 

(33) 
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Chapter  5 
CONCLUSIONS 


62.  The  computer  progrums  presented  in  this  report  are  part  of  a  major  effort 
at  NQL  to  develop  and  improve  magnetic  test  procedures  on  spacecraft.  The  effort 
involves  the  development  and  evaluation  of  both  data  acquisition  and  data  analysis 
procedures.  The  Spherical  Field  Coil  Facility  at  NQI  is  being  instrumented  to 
handle  both  the  acquisition  ?uid  analysis  of  the  test  data.  The  proposed 
specifications  for  the  instrumentation  were  presented  i  reference  (d).  More 
detailed  specifications  for  the  data  acquisition  and  amdysis  system  were  forwarded 
to  NRL  as  an  enclosure  to  reference  (e).  The  facility  is  scheduled  to  be 
operational  by  the  beginning  of  fiscal  year  *75.  A  technical  report  describing 
the  facility  should  be  published  shortly  thereafter. 

63.  There  are  other  analysis  projects  to  be  completed.  One  is  the  compilation 
and  publication  of  a  reference  manual  containing  the  mathematical  equations  for 
dipole  and  quadrupole  computations.  This  will  simplify  slide-rule  calculations 
which  are  made  during  testing.  Another  project  involves  the  conduct  of  a  more 
elaborate  error  analysis  U3ing  the  computer  programs  descried  above.  This  will  be 
necessary  to  evaluate  the  minimum  detectable  dipole  moment  under  several  different 
conditions. 

64.  It  should  be  noted  here  that  there  are  several  othor  methods  for 
estimating  the  dipole  moment  of  spacecraft.  The  most  effective  method  to  use  in 
any  particular  ca3e  depends  on  a  number  of  things  including  the  size  of  the 
spacecraft,  the  availability  of  a  gimballing  system,  the  desired  accuracy  of  the 
compensation,  the  complexity  and  permanence  of  the  spacecraft’s  magnetism,  etc. 

The  procedure  based  on  the  spherical  harmonic  analysis  of  the  spacecraft's  magnetism 

has  proven  to  be  both  fast  and  accurate  for  Mil.  satellites.  Many  of  the  tests  have 

been  completed  in  less  than  four  hears  and  with  an  accuracy  which  allows  dipole 

3 

moment  compensation  of  all  but  about  100  out  of  6000  gauss-cm  . 
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FIG.  3  SPHERE  OF  MEASUREMENTS 
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ROTATION 


Notes: 

1.  The  diagrams  are  viewed  from  the  sensor  position, 

2.  The  turntable  rotation  Is  clockwise. 

3.  Each  curve  begins  with  +z-axis  directed  at  the  sensor. 


FIG.  4  SATELLITE  INITIAL  POSITIONS  FOR  NO  =  6 
(Viewed  from  sensor  position) 
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DIPOLE  2 


DIAGRAM  OF  DIPOLES 


DIPOLE  3 


DIPOLE  1 


DIPOLES  2  &  3  DIPOLE  1 


PARAMETRIC  VALUES 


PARAMETER 

COMP. 

DIPOLE 

1 

2 

3 

POSITION 

X 

39.000 

-21.000 

-21.000 

VECTOR 

V 

0.000 

36.373 

-36. 373 

Z 

0. 000 

0.000 

0.000 

DIPOLE 

Dx  (A(2)  ) 

31,000. 

-15,000. 

-15,000. 

MOMENT 

Dy  (B(l)  ) 

0. 

25,980. 

-25,980. 

Dz  (A(l) ) 

0. 

0. 

0. 

FIG.  5  ILLUSTRATION  OF  SAMPLE  PROBLEM 
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INTERVAL  OF 


GREAT  CIRCLE  OF 


INTERVAL  OF 
COLATITUDE 


COMMON  BOUNDARIES 
FOR  BOTH  IW  /  O 
AND  IW  =  0. 


AREA  ELEMENTS 

FOR  IW/O.  [AREA  =X(I)] 


BOUNDARY  OF  SURFACE 

AREA  ELEMENTS 

FOR  IW  =  0.  [AREA  =  Y  (I)] 


FIG.  7  EXAMPLE  OF  SURFACE  AREA  ELEMENTS  ASSIGNED  TO  DATA  POINT 


DATA 

POiNT% 


NORMAL  MAGNETIC  FIELD  (GAMMAS) 

.500  -1.000  -.500  -.000  .500  1.000  1.500  2.000 
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FIG.  9  DATA  CURVES  FROM  SA3024  FOR  SAMPLE  PROBLEM 
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DIPOLE  DIAGRAM 
FOR  A°  =  2aD  =  1000 
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FIG.  14  QUADRUPOLE  CURVES  FOR  A>  1000  GAUSS-CM 
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FIG.  17  QUADRU POLE  CURVES  FOR  b!  =  1000  GAUSS-CM 
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FIG.  74  QUADRUPOLE  CURVES  FOR  Q23  =  1000  GAUSS-CM 
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FIG.  27  MULTIPOLE  COMPONENT  OF  DEGREE  2  (QUADRUPOLE  COMPONENT) 
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FIG.  32  MULTIPOLE  COMPONENT  OF  DEGREE  7 
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FIG.  36  DATA  CURVES  FOR  RADIALLY  OFFSET  DIPOLE 
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APPENDIX  A 

GLOSSARY  OF  SYMBOLS  AND  TERMS 

r 

A(I)  -  is  the  spherical  harmonic  coefficient  • .  '  "  ~rn  the  form  used  by  the  computer 
programs.  Eqs.  (5)  and  (8)  define  ::o  .elationships. 

A(n,m)  -  is  the  spherical  harmonic  coefficient  A™  as  an  element  of  a  two-dimensional 
array. 

A^  -  is  the  spherical  harmonic  coefficient  as  defined  by  Eq.  (5). 

B(I)  -  is  the  spherical  harmonic  coefficient  Bj^  in  the  form  used  by  the  computer 
programs.  Eqs.  (5)  and  (8)  define  the  relationships. 

B(n,m)  -  is  the  spherical  harmonic  coefficient  Em  as  an  element  of  a  two-dimensional 

n 

array. 

B^  -  is  the  spherical  harmonic  coefficient  as  defined  by  Eq.  (5). 

C  -  is  the  constant  factor  in  the  set  of  weighting  factors  [Y(I)}.  C  has  the  value 
(tt/NO)  representing  the  interval  of  longitude.  (see  Eqs.  (  4)  and  (15)). 

C  ( I)  -  is  the  Fourier  coefficient  representing  the  amplitude  of  the  Ith  term  in  the 
expansion  of  the  data  curves.  Eqs.  (32)  and  (34)  define  the  relationships. 

C™  -  is  the  coefficient  used  in  Eq.  (26b).  It  originates  in  the  identity 
dl,nVcos  9 )  —  m  cos  0  Pm(cos  0)/sin  0  -  Cm  Pm+"L(cos  0) 

II  II  II  1  x 

d0 

where 

-  [ (n-m) (n+m+l)J2  for  (m  >  0) 

=  [n(n+l)/2]2  for  (m  =  0) 
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CS  -  is  the  parameter  in  the  program  SA3Q24  that  represents  the  data  value 

resulting  from  a  static  measurement  by  the  magnetic  sensor  with  a  calibration 
signal  turned  on. 

CV  -  is  the  value  (in  gammas)  of  the  calibration  signal.  The  values  of  CS,  CV,  and 
CZ  are  used  to  convert  the  measured  data  into  gammas,  i.e.,  each  data  value  is 
multiplied  by  CV/(CS-CZ). 

CZ  -  is  the  parameter  in  the  program  SA3024  that  represents  the  data  value 

resulting  from  a  static  measurement  by  the  magnetic  sensor  with  the  calibration 
signal  turned  off. 

CO  -  (=  C  )  is  the  Fourier  coefficient  representing  the  constant  component  of  the 
data  curves.  It  is  defined  in  Eq.  (30). 

Clj  -  is  the  Fourier  coefficient  for  the  jth  cosine  term  in  the  expansion  of  the 
data  curves.  It  is  defined  in  Eq.  (33b.). 

C6  -  is  the  parameter  in  the  BASIC  program  SA1024  which  corresponds  to  CV. 

C7  -  is  the  parameter  in  the  BASIC  program  SA1024  which  corresponds  to  CS. 

C3  -  is  the  parameter  in  the  BASIC  program  SA1024  which  corresponds  to  CZ. 

_  o  o  2  -1- 

D  -  is  the  magnitude  of  the  dipole  moment  D.  It  is  equal  to  (D^  +  +  D^)2. 

D  -  is  the  dipole  moment  vector  (Dp  Dp  D^)  defined  by  Eq.  (l). 

D( I)  -  is  the  Ith  factor  of  the  set  of  weighting  factors  (Y(I)},  It  is  a  measure 

of  the  interval  of  colatitude  assigned  to  the  data  points  (F(I,J),  J  = 
1,2,***,N0}.  (See  Eqs.  (14)  through  (18).) 

Dp  Dp  D^  -  are  the  x,  y,  and  z-components,  respectively,  of  the  dipole  moment  D. 

DEV  -  is  the  maximum  difference  between  data  points  of  a  measured  curve  and  the 
corresponding  points  of  the  curve  defined  by  the  approximated  Fourier 
coefficients. 
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EA  -  is  the  parameter  in  programs  SA4.024  and  SA5024  that  represents  the  angulur 
error  (in  degrees)  to  be  randomly  inserted  into  the  simulated  measurement 
data.  It  represents  the  measurement  position  errors. 

ED  -  is  the  parameter  in  programs  SA4024  and  SA5024  that  represents  a  constant 

offset  (in  gammas)  of  the  measurement  instrumentation.  The  analysis  procedure 
handles  this  value  as  the  magnetic  field  from  a  monopole  moment. 

EG  -  is  the  parameter  in  program.?  G A 4024  and  SA5024  that  represents  the  error  (in 
gammas)  to  be  randomly  inserted  into  the  simulated  measurement  data.  It 
represents  instrumentation  inaccuracies. 

F(I)  -  is  the  argument  representing  the  x,  y,  and  z-ccmponent  of  the  magnetic  field 
vector  computed  by  the  subroutine  AMPFLD.  F(I),  for  I  =  1,2,***,N  is  also 
the  array  of  data  for  the  subroutine  FNCTON. 

F(IJ)  -  is  the  single-dimensioned  array  of  data  values  representing  the  normal 

component  of  the  magnetic  field  on  the  surface  of  the  measurement  sphere 
surrounding  the  satellite.  The  relationship  is  F(IJ)  =  f(e(l), 

9 (J))  for  IJ  =  I  +  (J  -  1)  •  m,  I  =  1,2,  •  •  •  ,N1,  and  .J  -  1,2,***,N0. 

F(I,J)  -  is  the  two-dimensional  array  of  numbers  representing  discrete  values  of 
the  normal  component  of  the  magnetic  field  on  the  surface  of  the 
measurement  sphere  surrounding  the  satellite.  The  values  are  actually 
stored  in  the  single-dimensioned  array  F(l.T)  =  F(I,J)  =  f(0(I), 

9 (J) )  for  IJ  =  I  +  (J  -  1)  •  Nl,  I  =  1,2, * • • ,N1,  and  J  =  1,2,***,N0. 

f(8,<p)  -  represents  the  normal  component  of  the  total  magnetic  field  on  the  surface 
of  the  measurement  sphere  of  radius  R1  surrounding  the  satellite. 

fn(6,;p)  -  represents  the  normal  component  of  the  magnetic  field  on  the  surface  of 
the  measurement  sphere  from  the  multipole  moment  of  degree  n. 

f  .(0,9)  -  represents  the  normal  component  of  the  magnetic  field  on  the  surface  of 
^  J 

the  measurement  sphere  from  the  jth  multipole  magnet  of  degree  n. 

F9  -  is  the  format  for  reading  and  printing  the  spherical  coefficients  A(I)  and 
B ( I) ,  e.g.,  F9  =  (1H  ,7E10.4). 
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H(R)  -  represents  the  total  magnetic  field  vector  at  the  point  R. 

H^CR)  -  represents  the  magnetic  field  vector  at  the  point  R  from  a  multipole  magnet 
of  degree  n. 

i  -  represents  the  unit  vector  along  the  x-axis. 

IP  -  is  the  parameter  in  the  program  SA4024  that  determines  whether  or  not  the 
simulated  measurement  data  is  to  be  interpolated  and  plotted.  IP  ^  0  means 
that  the  data  will  be  interpolated  and  plotted. 

IP1  -  is  the  parameter  in  the  programs  SA3024  and  SA5024  which  corresponds  to  IP. 

IP2  -  is  the  parameter  in  the  programs  SA3024  and  SA5024  that  determines  whether  or 
not  the  measurement  data  is  to  be  printed.  IP2  ^  0  means  that  the  data  will 
be  printed. 

IR  -  is  the  parameter  in  the  programs  SA2024  and  SA3024  that  determines  whether  or 
not  to  read  the  measurement  data  from  a  data  file.  IR  ^  0  means  that  the  data 
will  be  read  from  the  file  DAT024. 

IW  -  is  the  parameter  in  programs  SA3024  and  SA5024  that  determines  which 

integrating  scheme  is  to  be  used.  IW  =  0  means  that  the  exact,  algebraic 
scheme  is  to  be  used. 

j  -  represents  the  unit  vector  along  the  y-axis. 

k  -  represents  the  unit  vector  along  the  z-axis. 

m  -  is  the  order  of  the  coefficients  Am  and  Bm,  and  the  polynomials  Pm(  cos  0)  and 

n  n  n 

P  (cos  e). 

n,m 

M  -  is  the  program  parameter  representing  the  order  of  the  coefficients  and 
polynomials  associated  with  raultipole  magnets. 

n  -  is  the  degree  of  the  coefficients  A^  and  B®,  and  the  polynomials  P^(cos  0)  and 

P  (cos  9). 
n,m 
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N  -  is  the  program  parameter  representing  the  degree  of  the  coefficients  and 

polynomials  associated  with  multipole  magnets.  N  is  also  used  to  define  the 
number  of  distinct  data  points  for  the  subroutine  FNCTON. 

NO  -  is  the  number  of  curves  of  data.  It  is  an  even  integer  (--16)  corresponding  to 
the  number  of  great  circles  of  data  on  the  measurement  sphere. 

N1  -  is  the  number  of  equally  spaced  data  points  per  curve  ranging  from  0  through 
360  degrees  in  colatitude.  N1  is  an  odd  integer  (03). 

N2  -  is  the  parameter  in  the  BAS IC  program  SA1024  which  corresponds  to  IP2.  N2  is 
also  used  in  the  subroutine  FNCTON  to  designate  the  number  of  Fourier  terms 
that  produces  the  minimum  error  (DEV)  between  the  data  and  the  computed  curve. 

N3  -  is  the  number  of  distinct  factors  { D( I) }  of  the  weights  { Y ( I)  ] .  N3  is  the 
largest  integer  that  is  less  than  or  equal  to  (N1  +  3)/4>  i.e.,  N3  =  [max  i 
such  that  i  -  (N1  +  3)/4]-  1~i 

n(0,cp)  -  is  the  unit  normal  vector  on  (exterior  to)  the  surface  of  the  measurement 
sphere  at  the  point  (Rl,  0,  <p).  It  has  rectilinear  components  (sin  0 
cos  cp,  sin  9  sin  c p,  cos  9). 

NH  -  is  the  parameter  in  the  program  SA3024  that  represents  the  highest  degree 
spherical  harmonic  term  to  be  computed  from  the  data  (NH  -  1  for  dipoles, 

2  for  quadrupoles,  etc.).  NH  is  also  the  parameter  in  the  program  SA4024 
that  represents  the  total  number  of  different  harmonics  (degrees)  of  multipole 
magnets  to  be  considered. 

NH1  -  is  the  parameter  in  the  program  SA5024  that  represents  the  total  number  of 
different  harmonics  (degrees)  of  raultipole  magnets  to  be  considered. 

NH2  -  is  the  parameter  in  the  program  5A5024  tb'  represents  the  highest  degree 
spherical  harmonic  term  to  be  computed  from  the  data  (NH2  =  1  for  dipoles, 

2  for  quadrupoles ,  etc.) 

NM  -  is  the  parameter  in  the  programs  GA4024  and  SA5024  that  represents  the  number 
of  multipole  magnets  with  harmonic  number  (degree)  NN. 
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MN  -  is  the  parameter  in  the  programs  SA4024  and  SA5024  that  represents  the 

harmonic  number  (degree)  for  the  multipole  data  being  read  in  (NN  =  1  for 
dipole,  2  for  quadrupoles,  etc.). 

P  -  represents  the  multipole  position  vector  in  the  programs  SA4024  and  SA5024.  It 
also  represents  the  weighting  factors  in  the  subroutine  AMPMNT. 

P4  -  is  the  parameter  in  programs  SA3024,  SA4024,  and  SA5024  that  represents  the 
scale  factor  in  gammas/inch  for  the  y-axis  if  the  data  is  to  be  plotted.  If 
PY  -  0.0,  and  if  the  data  is  to  be  plotted,  a  suitable  factor  will  be  computed 
from  the  data. 

represents  the  associated  Legendre  polynomial  of  degree  n  and 

order  m.  Reference  (b)  gives  the  definition  as  P  (cos  0)  =  sinm  0 

n  |  m 

d1^  ^(cos  0)/d(cos  9)m  where.  Pn(cos  0)  is  the  regular  Legendre 
polynomial  of  degree  n.  (See  also  Eq.  (2)  of  Appendix  K.) 

P™(cos  9)  -  represents  the  Schmidt  polynomial  of  degree  n  and  order  m.  They  are 
defined  in  Eq.  (3)  of  Appendix  K. 

PHI(I)  -  is  the  Fourier  coefficients  in  the  subroutine  FNCTON  which  represent  the 
phase  angles  defined  by  Eqs.  (31)  and  (33). 

^11’ ' *  * ’ ^33  ”  represent  the  coefficients  of  the  quadrupole  moment  term  in 
rectilinear  coordinates. 

r  -  represents  an  element  of  the  orthonormal  set  of  vectors  defined  by  Eq.  (23). 

R  -  represents  the  position  vector  for  a  point  at  which  the  magnetic  field  is  to  be 
computed  by  the  subroutine  ARTFLD.  Coordinate  transformations  are  included  in 
Figure  1. 

-  represents  the  vector  between  a  multipole  position  and  the  point  at  which  the 
magnetic  field  is  to  be  computed  by  the  subroutine  AMPFLD. 

R1  -  is  the  parameter  in  the  programs  SA1024,  *  *  •  ,SA5024  that  represents  the  radius 
of  the  measurement  sphere  in  inches. 
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Slj  -  is  the  Fourier  coefficient  for  the  jth  sine  term  in  the  expansion  of  the  data 
curves.  It  is  defined  by  Eq.  (31a). 

X(I)  -  represents  the  surface  areu  or  weight  assigned  to  the  data  points  {F(I,J),J  = 
l,2,***,N0j  when  the  geometric  or  approximate  integrating  scheme  is  used. 

It  is  defined  in  Eq.  (4) . 

Y(I)  -  represents  the  surface  area  or  weight  assigned  to  the  data  points 
{F(I,J),J  =  l,2,***,N0j  when  either  integration  scheme  is  used. 

YDIST  -  is  the  parameter  in  the  subroutine  DATFLT  that  corresponds  to  the  parameter 
PY. 


0  -  represents  the  spherical  coordinate  of  colatitude  defined  in  terms  of 

—1  r  2  j  i  i 

rectilinear  coordinates  as  0  =  tan  |(x'~  +  y  )VzJ. 

9  -  represents  an  element  of  the  orthonormal  set  of  vectors  defined  by  Eq.  (23). 

8(1)  -  represents  the  Ith  element  in  the  set  of  values  of  colatitude  at  which  the 
data  F(I,J)  is  recorded. 

cp  -  represents  the  spherical  coordinate  of  longitude  defined  in  terms  of 

1 

rectilinear  coordinates  as  <p  ~  tan  (x/y) . 

cp  -  represents  an  element  of  the  orthonormal  set  of  vectors  defined  by  Eq.  (23). 

cp(.T)  -  represents  the  jth  element  in  the  set  of  values  of  longitude  at  which  the 
data  F(I,J)  is  recorded. 
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APPENDIX  B 

LISTING  OF  SA1024 


00010 

REM  PROGRAM  SATDPL 

SA100010 

00020 

DIM  R ( 3 )  ,W(3) * F ( 300 ) 

SA100020 

00030 

LET  PI =3 • 14159265 

SA100030 

00040 

READ  N0.N1 

SA10r040 

00030 

IF  N0<>0  THEN  00070 

SA100050 

00060 

STOP 

SA100060 

00070 

READ  R1.C6 

SA100070 

00080 

LET  R1«R1*2.54 

SA 100080 

00000 

PRINT  "ENTER  1  OR  0  TO  INDICATE  DATA  PRINT  OR  NOT" 

SA100090 

00100 

READ  N2 

SA100100 

00110 

LET  D0*2 • »P 1 / ( Nl-1  ) 

SA1001 10 

00120 

FOR  1*1  TO  3  STEP  1 

SA100120 

00130 

LET  W( I ) *0 

SA1001 30 

00140 

LET  R (  I  ) =0 

SA100140 

00150 

NEXT  I 

SA100150 

00160 

LET  N3-N0*N1 

SA100160 

00170 

READ  C7.C8 

SA100170 

00180 

FOR  1*1  TO  N3  STEP  1 

SA100180 

00100 

READ  F ( I ) 

SA100190 

00200 

NEXT  I 

SA100200 

00210 

PRINT 

SA100210 

00220 

GOSUB  01160 

5A100220 

00230 

IF  N2*0  THEN  00250 

SA100230 

00240 

GOSUB  01000 

SA100240 

00250 

PRINT 

SA100250 

00260 

FOR  K0*1  TO  NO  STEP  1 

SA100260 

00270 

LET  03*P1*(K0-1 )/N0 

SA100270 

00280 

LET  S3*  S IN ( 03 ) 

SA100280 

00290 

LET  C3=C0S ( 03 ) 

SA100290 

00300 

FOR  LO* 1  TO  N 1  STEP  1 

SA 100300 

00310 

LET  K1»L0+(K0-1)*N1 

SA100310 

00320 

LET  F1=F(K1 1*1. E-5 

SA100320 

00330 

LET  04*2. *P1*(L0-1 ) /(Nl-1  ) 

SA100330 

00340 

LET  S4* S I N ( 04 ) 

SA100340 

00350 

LET  C4*C0S ( 04 ) 

SA100350 

00360 

LET  P5*(S!N(D0/4)*«2)/(2.*N0) 

SA100360 

00370 

IF  LO* 1  THEN  00430 

SA100370 

00380 

IF  LO*N 1  THEN  00430 

SA100380 

00390 

IF  L0<XNl  +  l)/2  THEN  00420 

SA100390 

00400 

LET  P5=P5*2. 

SA100400 

00410 

GO  TO  00430 

SA100410 

00420 

LET  P5*ABS(SINIO4)*SIN(D0/2) )/(2.*N0) 

SA100420 

00430 

LET  R< 1 ) =C3*S4 

SA100430 

00440 

LET  R ( 2 ‘ =S3*S4 

SA100440 

00450 

LET  R ( 3 ) =C4 

SA 100450 

00460 

FOR  1*1  TO  3  STEP  1 

SA100460 

00470 

W( I ) *W( I )+(Fl*P5)*R(I ) 

SA 100470 

00480 

NEXT  I 

SA100480 

B-l 
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00490 

NEXT  L0 

SA100490 

00500 

NEXT  ICO 

SA100500 

00510 

FOR  !- 1  TO  3  STEP  1 

5A100510 

00520 

LET  W<  I  )-< 1.5#(R1**3> )#W< I ) 

SA100520 

00530 

NEXT  I 

SA100530 

00540 

LET  R(  1)«SQR(W<1)**2+W<2I**2+W<3)**2) 

SA100540 

00550 

LET  S8*W<2) 

SA100550 

00560 

LET  59*W( 1  I 

SA100560 

00570 

GOSUB  01670 

SA100570 

00580 

LET  R(2I-C5*180./P1 

SA100580 

00590 

LET  S8«SQR(W(1)*»2+W<2)**2> 

SA100590 

00600 

LET  S9*W( 3 ) 

SA100600 

00610 

GOSUB  01670 

SA100610 

00620 

LET  R(3)«C5*180./P1 

SA100620 

00630 

PRINT  "(0X,DY,DZ)  «  "‘,Wlli;M(2l 
PRINT  "(0  #02.01)  «  "  R  ( 1  >  j  R  (  2  1 

;  w  <  3 ) 

;  R  (  3  I 

SA100630 

00640 

SA100640 

00650 

GOSUB  01320 

1 

SA100650 

00660 

GO  TO  00040 

SA100660 

00670 

SA100670 

00680 

REM  DATA  N0.N1 

SA100680 

00690 

DATA  6.25 

SA 100690 

00700 

REM  DATA  R1 ,C6 

SA100700 

00710 

DATA  96.0.1.0 

SA100710 

00720 

REM  DATA  N2 

SA100720 

00730 

DATA  1 

SA100730 

00740 

REM  DATA  C 7 ,C8 . 1 F (I) , I  *  1 , N3 ) 

SA100740 

00750 

DATA  1.0,  0.0. 

SA100750 

00760 

DATA  -504.3,  -475.5,  -381.5, 

-123.3, 

43B.4, 

1273.7, 

1749.2, SA100760 

00770 

DATA  1259.6,  431.3,  -125.7, 

-382.1  , 

-476.3, 

-502.7, 

-|'r99.8,SA100770 

00780 

DATA  -476.5,  -436,5,  -386.3, 

-341.0. 

-322.6, 

-339.4, 

-386. 5, SA 100780 

00790 

DATA  -435.9,  -476.7,  -499.0, 

-503.7, 

-902.8, 

-881.2, 

-814.6, SA100790 

00800 

DATA  -675.4,  -420.8,  -118.9, 

27.2, 

-119.7, 

-426.7, 

-672.7, SA100800 

00810 

DATA  -815.5,  -880.6,  -904.1, 

-897.6, 

-851,0, 

-728.7, 

-483.8.SA100810 

00820 

DATA  -164.5.  7.2,  -160.4, 

-480.6. 

-728.9, 

-850.4, 

-897.1,SA100820 

00830 

DATA  -903.7,  -1302.5,  -1287,7, 

- 1254,4 , 

-1206.6, 

-1148.0. 

-1096.8,SA100830 

00040 

DATA-1077.9,  -1097.1,  -1148.4, 

-1206.6, 

-1255.4, 

-1288.3, 

-1303.0.SA100840 

00050 

DATA-1292.6,  -1219.0,  -990.5, 

-394.6, 

589.2, 

1219.4, 

595,2 ,5A1 00850 

00860 

DATA  -406.4,  -993,0,  -1219.6, 

-1291.0. 

-1304,2, 

-1703.5, 

-1691.6.SA100860 

00870 

DA T A- 1 642 , 3  ,  -1519.4,  -1281.9  , 

-961.8, 

-800.9, 

-966.5, 

-1277.0.SA100870 

00080 

DATA-1520.1,  -1642.5,  -1692,0, 

-1704.1, 

-1690.6, 

-1640.8, 

-1515. 1,SA 100 880 

00890 

DA  T  A- 1 2  74,0,  -946.5,  -779.8  , 

-946.2  , 

-1274.5, 

-1518.1 , 

-1641.6.SA100890 

00900 

DA  TA-1691,1  ,  -1703.7,  -2102.4, 

-2092.4, 

-2019,9, 

-1788.4, 

-1202.2, SA1 00900 

0091 0 

DATA  -211.0,  418.3,  -207.2, 

-1209,2, 

-1792.5, 

-2019.2, 

-2091.1,SA100910 

00920 

DATA-2103.6,  -2088.4,  -2056.8, 

-2005.6, 

-1947.4, 

-1898.5, 

-1877.5.SA100920 

00930 

DA TA-1897.9,  -1947.7,  -2006.3  , 

-2054.5, 

-2088.6, 

-2103.4, 

-2502.4.SA100930 

00940 

DATA-2497.0,  -2452.0.  -2327.8, 

-2086.3, 

-1770.2, 

-1598.7, 

-1 762 .8, SA 100940 

00950 

DATA-2082.9,  -2329.9,  -2448.4, 

-2497.0, 

-2503.6, 

-2481.7, 

-2415.6.SA100950 

00960 

DATA-2274.3,  -2022.5,  -1713.6, 

-1566.7, 

-1720.3, 

-2020.7, 

-2271, 2, SA1 00960 

00970 

DA TA-2414.6,  -2481.5,  -2503.5 

SA100970 

00980 

DATA  0,  0. 

SA100980 

00990 

SA100990 

01000 

REM  SUBROUTINE  PRINTF 

SA101000 

01010 

FOR  <0=  1  TO  NO  STEP  1 

SA101010 

01020 

LET  K2* 1+ ( KO-1 ) * ( N1 ) 

SA101020 

01030 

LET  K3*N1  +  ( KO-1 ) *  <  N 1  } 

SA101030 

01040 

PRINT 

SA101040 

01050 

PRINT  "  CURVE  NO."  j  ICO 

FOR  K4*  K2  TO  K3  STEP  1 

SA101050 

01060 

SA101060 

01070 

IF  FIX4K1E-2  THEN  01090 

SA101070 

01080 

GO  TO  OHIO 

SA10108C 
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01090 

01100 

OHIO 

01120 

01130 

01140 

01130 

01160 

01170 

01180 

01160 

01200 

01210 

01220 

01230 

01240 

01230 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 


IF  F  (  K4  )  <-l  F-2  THEN  OHIO 
LET  F(K4).0.0 
PRINT  F ( <4 ) * 

NEXT  K4 
NEXT  KO 
RETURN 

REM  SUBROUTINE  SHIFT 
LET  Zl  =  (Ft  1 )+F(Nl )) /2. 

LET  N3»!Nl+l)/2 

LET  Z2=F ( N3 I 

FOR  K0“  2  TO  NO  STEP  1 

LET  K2=1+(K0-1 )*N1 

LET  K3=K0*N1 

LET  X4«N3+(K0-1)*N1 

LET  Cl*(2.*Zl+Z2-F(K2)-F(K4)-F(K3))/3. 

FOR  L0«1  TO  N1  STEP  1 

LET  K4=L0+(K0-1 )*N1 

LET  F (K4)=(F(K4)+C1 )*C6/(C7-C8 ) 

NEXT  LO 
NEXT  KO 
RETURN 

REM  SUBROUTINE  PRINT1 
DIM  S( 3) 

LET  Pl«3. 14159265 
FOR  I«1  TO  3  STEP  1 
let  sm=-wm 

NEXT  I 

LET  R ( 1 ) =  SQR (S(l)**2+S(2)**2+S(3i*#2) 

LET  S8  =  S ( 2  ) 

LET  S9*S(1) 

GOSUB  01670 

LET  R(2)*C5#180./P1 

LET  S8=SQR(S(1)**2+S(2)**2) 

LET  S9»S(3) 

GOSUB  01670 

LET  R(3l=C5*180«/Pl 

LET  W3=ABS(W(3I) 

LET  W4* • 2*W3 

LET  A1=SQR(S< 1 )**2+S( 21**2 ) 

LET  A2=.2*A1 

PRINT  "  THE  COMPENSATING  MAGNET  FOR  THE  XY-PLANE  SHOULD  • 
PRINT  "  BE" Al" GAUSS-" 

PRINT  "CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINT  INg"R(  2  )', 
PRINT  "DEGREES  FROM  +X." 

PRINT  "(THE  MAGNET  SHOULD  READ  "A2"  GAMMA  AT  ONE  METER.)" 

PRINT  “  THE  COMPENSATING  MAGNET  FOR  THE  Z-AXIS  SHOULD  BE''  • 
PRINT  W3"  GA'JSS-" 

IF  S ( 3  )  =>0.  THEN  01620 

PRINT  "  CENIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING"', 

PRINT  "TOWARDS  -Z  (THE  MAGNET  " 

GO  TO  01640 

PRINT  'CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  " ) 

PRINT  "TOWARDS  +Z  (THE  MAGNET)  " 

PRINT  "SHOULD  READ"W4" GAMMA  AT  ONE  METER." 

RETURN 

REM  SUBROUTINE  ARCTAN 
IF  S9=0  THEN  01750 


SA101090 
SA101100 
SA101110 
SA101120 
SA101130 
S A 1 0 1 140 
SA10U50 
SA101160 
SA101170 
SA101180 
SA101190 
SA101200 
SA101210 
SA101220 
SA101230 
SA101240 
SA101250 
SA101260 
SA101270 
SA101280 
SA101290 


SA101300 

SA101310 

SA101320 

SA101330 

SA101340 

SA101350 

SA101360 

SA101370 

SA101380 

SA101390 

SA101400 

SA101410 

SA101420 

SA101430 

SA101440 

SA101450 

SA101460 

SA101470 

SA101480 

SA101490 

SA101500 

SA101510 

SA101520 

SA101530 

SA101540 

SA101550 


SA101560 
SA101570 
SA101580 
SA101590 
SA101600 
SA101610 
SA 101620 
SA101630 
SA101640 
SA 101650 
SA101660 
SA101670 
SA101680 
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01690 

LET  C5-S8/S9 

SA101690 

01700 

IF  S9?0  THEN  01730 

SA101700 

01710 

LET  C5*ATN ( C5 I +P1 

SA101710 

01720 

60  TO  01790 

SA101720 

01730 

LET  C5«ATN(C5) 

SA101730 

01740 

GO  TO  01790 

SA101740 

01750 

if  s8<-0  then  oitbo 

SA101750 

01760 

LET  C5-P1/2 

SA101760 

01770 

GO  TO  01790 

SA101770 

01780 

LET  C5«3*Pl/2 

SA101780 

01790 

RETURN 

Sf *01790 

01800 

END 

SA101800 
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APPENDIX  C 

LISTING  OF  SA2024 


10 


20 


30 

40 


50 

60 


70 


PROGRAM  SATDPLI INPUT .OUTPUT .DAT024 . TAPE7-DAT024 ) 

SA200010 

DIMENSION  R ( 3 ) »W(  3 ) , F I  8  00  ) 

SA200020 

Pl*3. 14159265358979 

SA200030 

REWIND  7 

SA200040 

READ  01.  N0.N1.IR 

SA200050 

IF(NO.EO.O)  STOP 

SA200060 

READ  03.  R1.C6 

SA200070 

R1*R1*2.54 

SA200080 

PRINT  02 

SA200090 

READ  01.  N2 

SA200100 

DO*2.*P1/FLOAT(N1-1 1 

SA200110 

DO  20  1*1.3 

SA200120 

wm-o 

SA200130 

R  (  I )  *0 

5A200140 

CONTINUE 

SA200150 

N3*N0*N  1 

SA200160 

IF(IR.EQ.O)  READ  03,  C7  ,C8  .  ( F  < I J , 1*1 »N3 ) 

SA200170 

IF(IR.EQ.O)  WRITEI7.03)  C7 ,C8 . I F (II , I • 1  ,N3 ) 

SA2001 80 

IF(IR.NE.O)  READ ( 7 , 03 )  C7.C8, (F( 1} . 1*1  ,N3) 

SA200190 

CALL  SHIFT(F,N0,N1.C6.C7,C8) 

SA200200 

IF(N2.NE.O)  CALL  PR INTF ( F .NO , N'l 

SA200210 

DO  60  KO-l.NO 

SA200220 

03=P1* ( FLOAT ( KO-1 ) /FLOAT (NO) ) 

SA200/ JO 

S3*S I N ( 03 ) 

SA200240 

C3*C0S ( 03 1 

SA200250 

DO  60  L0-1.N1 

SA200260 

KL*LO+ I KO-1 )  *N1 

SA200270 

Fl*F(KL)*l.E-5 

SA200280 

04»2.*P1*( FLOAT (LO-1)/FLOAT(N1-1 1  ) 

SA200290 

S4*SIN(04) 

SA200300 

C4*C0S ( 04 ) 

SA200310 

P5*(SIN<D0/4)**2) /<2.*FLOAT(NO) ) 

SA200320 

IFILO.EQ.l.OR.LO.EQ.Nl)  GO  TO  40 

SA200330 

IFILO.NE. (Nl+1 )/2 )  GO  TO  30 

SA200340 

P5*P5»2. 

5A2003S0 

GO  TO  40 

SA200360 

P5*ABSISlN(O4)*SIN(D0/2 ) ) /  I  2.  ‘FLOAT  I  NO ) ) 

SA2CGA TO 

RI1) *C3*S4 

SA200380 

R I  2 ) *S3*S4 

SA20039U 

R  (  3  )  *C4 

SA200400 

DO  50  1*1.3 

SA200410 

W( I )-W(  I)  +  (F1*P5)*R(  I  ) 

SA200420 

CONTINUE 

SA200430 

DO  70  1*1.3 

SA200440 

WI  I)  *  (  1.5*1  R  1**3  )  )*WU) 

SA200450 

CONTINUE 

SA200460 

CALL  SPCOORIW.R) 

SA200470 

PRINT  04,  W(l) ,W( 2 ) ,W(  3  ) 

SA200480 

C-l 
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PRINT  05#  ft' .  I  #R(  i,R!3) 

CALL  print:  V.  ■ 

GO  TO  10 
01  FORMAT (1415) 

02  FORMAT  1 44H0ENTER  1  OR  0  TO  INDICATE  DATA  PRINT  OR  N0T9) 
03  FORMAT <9F6.1) 

04  FORMAT 1 14H  tDX.OY.DZ)  ■  .3F10.2) 

05  FORMAT!  14H  (D  .02.01)  ■  .3F10.2) 

END 

SUBROUTINE  PRINTF ( F .N0.N1 ) 

DIMENSION  F ( 800  I 
DO  30  <0*1. NO 
KS*1+!K0-1 ) * ( N 1 ) 

KE*N1+!K0-1 )*!N1 ) 

PRINT  11. KO 

30  PRINT  12 . 1 F  IKK ) *KK«KS»KE) 

RETURN 

11  FORMAT! 11H0CURVE  NO.  .12) 

12  FORMAT! 1H  .9F8.1 ) 

END 

SUBROUTINE  SHI  FT ! F .NO .N1 ,CV .CS .CZ ) 

DIMENSION  F ! 800 ) 

P1»(F!1 )+F!Nl))/2. 

N3* ( Nl+1 ) /2 
P2-FIN3) 

DO  30  KO* 1 .NO 
KS«1+!K0-1 )*N1 
KE«K0*N1 
KK-N3+IK0-1 )*N1 

COR«!2.*Pl+P2-F!KS)-F(KK)-F!KE))/3. 

DO  30  L0-1.N1 
KK-LO+IKO-1 )*N1 

30  F(KK)*!FIKK)  +COR )*CV/ICS-CZ) 

RETURN 

END 

SUBROUTINE  SPCOOR!D,R) 

DIMENSION  D ( 3 ) . R  <  3 ) 

DATA  PI/3.14159265358979/ 

R ! 1 ) *SORT ! DOT  <  D.D ) ) 

R  (  2  )  *0. 

R  <  3 )  *0. 

IF!R(  D.EQ.O.  >  RETURN 

IF(D(l)**2+D(2)**2.NE.O.)  R ( 2 ) *ATAN2 ( D ( 2 ) »D! 1 >>*180./PJ 
R(3)*ATAN2( SORT  «D<  1  )**2+D(2)**2) »D<  3)  )*180./PI 
RETURN 
END 

FUNCTION  DOT(X.Y) 

DIMENSION  X ( 3 ) »Y( 3 ) 

DOT*X( 1 )*Y<  1)+X!2)*Y!2)+X(3)«Y<3) 

RETURN 

END 

SUBROUTINE  PRINT! ! W ) 

DIMENSION  R!3).S!3).W!3) 

DATA  ST.GT/1H-.1H+/ 

Pl*3. 14159265 


SA200490 
SA200500 
SA200510 
SA200520 
SA200530 
SA200540 
SA200550 
SA200560 
SA200570 
SA200580 
SA200590 
SA200600 
SA200610 
SA200620 
SA200630 
SA200640 
S A200650 
SA200660 
SA200670 
SA200680 
SA200690 
SA200700 
SA200710 
SA200720 
SA200730 
SA200740 
SA200750 
SA200760 
SA200770 
SA200780 
SA200790 
SA200800 
SA200810 
SA200820 
SA200830 
SA200840 
SA200850 
SA200860 
SA200870 
SA200880 
SA200890 
SA200900 
SA200910 
SA200920 
SA200930 
SA200940 
SA200950 
SA200960 
SA200970 
SA200980 
SA200990 
SA201000 
SA201010 
SA201020 
SA201030 
SA201040 
SA201050 
SA201060 
SA201070 
SA201080 
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00  10  1-1.3 
10  S< I ) «-W ( I ) 

CALL  SPC00R ( S .9  ) 

W3-A8S(W(3 ) ) 

W32-.2»W3 

AMI -SORT ( S( 1) **2  +  5(2  )  *»2) 
AMI  2- • 2*AM1 
PRINT  11,  AMI 
PRINT  12.  R  (  2 ) 

PRINT  13,  AM12 
PRINT  14,  W3 

I F  (  5 (  3  )  •  L T. 0 •  )  PRINT  15,  ST 


SA201090 
SA201100 
SA201 1 10 
SA201120 
SA20U30 
SA201140 
SA2011S0 
SA201160 
SA201170 
SA201180 
SA201190 
SA201200 


1FISI3) .GE.O. )  PRINT  15,  GT  SA201210 

PRINT  16.  W32  SA201220 

11  FORMAT ( 54H  THE  COMPENSATING  MAGNET  FOR  THE  XY-PLANE  SHOULD  B  SA201230 

+.2HE  ,F7.1,7H  GAUSS-)  SA201240 

12  FORMAT  <  47H  CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  ,F6.1,  SA201250 

+17H  DEGREES  FROM  +X.)  SA201260 

13  FORMAT ( 25H  (THE  MAGNET  SHOULD  READ  ,F7.1,21H  GAMMA  AT  ONE  METER. ) ISA201270 

14  FORMAT ( 43H  THE  COMPENSATING  MAGNET  FOR  THE  Z-AXIS,  SA201280 

+11H  SHOULD  BE  .F7.1.7H  GAUSS-)  SA201290 

15  FORMAT ( 46H  CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING.  SA201300 

+9H  TOWARDS  , A 1  , 1 4HZ .  (THE  MAGNET)  SA201310 


16  FORMAT! 13H  SHOULD  READ  .F7.1.22H  GAMMA  AT  ONE  METER.)) 
RETURN 


SA201320 

SA201330 


END 


SA201340 
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APPENDIX  D 

SAMPLE  PROBLEM  FOR  SA2024 


N0L  INTERCOM 
TYPE  "LOGIN.” 

LOGIN(S) 

0  24533LACK/  — — /4 


09/07/73  09.46.40.  BD/42/34 

C-  SETUP. FORTRAN 

ON  AT  09.46.56.  09/07/73 
♦♦FORTRAN 

♦♦NEW  OR  OLD  FILE-  ATTACH C BN2024# BN2024) ♦ATTACHCDAT024. DA T024) ♦TAPEC ON) 


0  9 • 47 • 39 • ATTACH ( BN 2 02 4# BN 202 4) 
09.47. 50. ATTACH ( DAT024. DAT024) 
♦  ♦READY. 

BN2024. 

6  25  1 

96.00  1.000 


25 


96.00  1.000 


1 


10 

12596 

-3863 

-9028 

-6727 

72 


0 

4313 

-3410 

-8812 

-8155 

-1604 


-4755 
-3821 
-339  4 
-6754 
-9041 
-7289 


-3815 

-4763 

-3865 

-4208 

-8976 

-8504 


-5043 
-1257 
-3226 
-8146 
-8806 
-4806 

-  12544-  12066-11480-  10968-10779- 
-12883-13030-12926-12190  -9905 

-4064  -9930-12196-12910-13042- 
-12819  -9618  -8009  -9665-12770- 
-16906-16408-15151-12748  -9465 

-  16416-169  1  1-  17037-21024-20924- 

4183  -2072-12092-17925-20192- 

-  20056-  19474-18985-18775-18979- 

-  21034-25024-249  70-2  4520-23278- 

-  20829-23299-2448  4-24970-25036- 

-  17136-15667-17203-20207-22712- 

0  0  0 
TAPE(OFF) 


-1233 

-5027 

-4359 

-1189 

-8510 

-8971 

I  097 1  - 

-3946 

17035- 

1 5201- 

-7796 

20199- 

20911- 

19477- 

20863- 

24817- 

24146- 


4384 
-4998 
-4767 
272 
-7287 
-9037- 
1  1  484- 
5892 
16916- 
16425- 
-9462- 
17884- 
21036- 
20063- 
17702- 
241  56- 
24815- 


12737 

-4765 

-4990 

-I  197 

-48  38 

13025- 

12066- 

12194 

16423- 

16920- 

12745- 

12022 

20884- 

20545- 

15987- 

22743- 

25035 


17  492 
-4365 
-5037 
-4267 
-1645 
12877 
12554 
5952 
15194 
17041 
15181 
-21  10 
20568 
20886 
17628 
20225 


Data  Tape 


D-l 


ENTFR  1  OR  0  TP)  INDICATF  DATA  PRINT  OR  NP>Tl 
C  DX#  DY  #  DZ )  =  825.54  -211.43  20.71 

(D  #02.01)  s  852.44  -  14.37  88.61 

THF  COMPENSATING  MAGNET  FOR  THE  XY-PLANE  SHOULD  BE  852.2  GAUSS- 
C EN TIM F TER- CUBED  WITH  THF  NORTH  POLE  POINTING  165.6  DEGREES  FROM  +  X. 
(THF  MAGNET  SHOULD  RFAD  170.4  GAMMA  AT  ONE  METER.) 

THE  COMPENSATING  MAGNET  FOR  THE  Z-AXIS  SHOULD  BE  20.7  GAUSS- 
CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  TOWARDS  -Z.  (THE  MAGNET 
SHOULD  READ  4.1  GAMMA  AT  ONE  METER.) 

ENTER  1  OR  0  TO  INDICATE  DATA  PRINT  OR  NOT) 


CURVE  NO. 

1 

-504.3 

-475.5 

-381.5 

-123.3 

436.4 

1273.7 

1749.2 

1259.6 

431.3 

-125.7 

-382.  1 

-476.3 

-502.7 

-499.8 

-476.5 

-436.5 

-366. 3 
-503.7 

-341.0 

-322.6 

-339.4 

-386.5 

-435.9 

-476.7 

-499.0 

CURVE  NO. 

2 

-502.8 

-461.2 

-414.6 

-275.4 

-20.8 

281.1 

427.2 

280.3 

-26.7 

-272.7 

-415.5 

-480.6 

-504.  1 

-497.6 

-451.0 

-328.7 

-83.8 

-503.7 

235.5 

407.2 

239.6 

-80.6 

-328.9 

-450.4 

-497.  1 

CURVE  NO. 

3 

-502.8 

-488.0 

-454.7 

-406.9 

-348.3 

-297.1 

-276.2 

-297.4 

-348.7 

-  406*9 

-455.7 

-488.6 

-503.3 

-492.9 

-419.3 

-190.8 

405.  1 
-504.5 

1388.9 

2019. 1 

1394.9 

393.3 

-193.3 

-419.9 

-49  1.3 

CURVE  NO. 

4 

-503.3 

-49  1 . 4 

-442.  1 

-319.2 

-81.7 

238.4 

399.3 

233.7 

-76.8 

-319.9 

-442. 3 

-491.8 

-503.9 

-490.4 

-440.6 

-314.9 

-74.6 

-503.5 

253.7 

420.  4 

254.0 

-74.  3 

-317.9 

-441.4 

-490.9 

CURVE  NO. 

5 

-502.8 

-492.8 

-420.  3 

-  168.8 

397.4 

1388.6 

2017.9 

1392.4 

390.4 

-192.9 

-419.6 

-491.5 

-504.0 

—488.8 

-457.2 

-406.0 

-347.8 

-503.8 

-298.9 

-277.9 

-298.3 

-348.1 

-406.7 

-454.9 

-489.0 

CURVE  NO. 

6 

-502.8 

-497.4 

-452.  4 

-326.2 

-86.7 

229.4 

400.9 

236.8 

-83.3 

-330.3 

-448.8 

-497.4 

-504.0 

-482.  1 

-416.0 

-274.7 

-22.9 

-503.9 

286.0 

432.9 

279.3 

-21.1 

-271.6 

-415.0 

-481.9 

(  DX.DY.DZ) 

= 

825. 54 

-211.43 

20. 

7  1 

( D  #02#01) 

= 

852. 44 

-  14.37 

86. 

61 

THE  COMPENSATING  MAGNET  FOR  THE  XY-PLANE  SHOULD  BE  852.2  GAUSS- 
C  ENTIMF TER -CUBED  WITH  THE  NORTH  POLE  POINTING  165.6  DEGREES  FROM  +X. 
(THE  MAGNET  SHOULD  RFAD  170.4  GAMMA  AT  ONE  METER.) 


D-2 


THE  COMPENSATING  MAGNET  FOR  THE  Z-AM  S  SHOULD  BE  20.7  GAUSS- 
CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  TOWARDS  -Z.  (THE  MAGNET 
SHOULD  READ  4.1  GAMMA  AT  ONE  METER.) 

09.53.46.  STOP 
♦♦READY. 

LOGOUT. 

CP  TIME  1.  187 

PP  TIME  48.498 
CONNECT  TIME  0  HR  9  MIN  10  SEC 
TOTAL  COST  OF  SESSION  =  S  2.28 
09/07/73  LOGGED  OUT  AT  09. 55. 50. < 


Notea: 

1.  The  Hie  BN2024  la  the  binary  version  of  SA2024.  It  oonalata  of  six  1  nary 
records  (subprograms). 

2.  The  information  typed  In  by  the  user  has  been  underlined. 
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APPENDIX  E 

LISTING  OF  SA3024 


PROGRAM  DIPANLI INPUT-65, OUTPUT *65 ,DA T024« SS , TAPE5- I NPUT , 
♦  TAPE6* OUTPUT , TAPE7*DAT024,TAPE99) 


SATELLITE  ANALYSIS  PROGRAM 


SA300018 
SA300020 
SA300030 
SA3000AO 
SA300050 
SA300060 
SA300070 

C  THIS  PROGRAM  ANALYZES  MAGNETIC  DATA  REPRESENTING  THE  NORMAL  COMP0N-SA300080 
C  ENT  OF  THE  MAGNETIC  FIELD  FROM  A  SATELLITE.  THE  DATA  IS  ENTERED  IN  SA300090 
C  THE  FOLLOWING  ORDER  —  SA300100 

SA300110 

NO  -  THE  NUMBER  OF  GREAT  CIRCLES  OF  DATA.  (NO  IS  USUALLY  EVEN,  E.G.*  SA300120 
HO* ( N 1 -1 t /2 •  THE  PROGRAM  STOPS  IF  N0*0. )  SA300130 

SA300140 

N1  -  THE  NUMBER  OF  DATA  POINTS  PER  GREAT  CIRCLE.  (N1  IS  ALWAYS  ODD.  SA300150 
THE  FIRST  DATA  POINT  IS  THE  SAME  AS  THE  LAST  FOR  EACH  GREAT  CIR-SA300160 
LE.)  SA300170 

SA300180 

NH  -  THE  HAPMONIC  NUMBER  (DEGREE)  REPRESENTING  THE  HIGHEST  DEGREE  SA300190 
SPHERICAL  HARMONIC  TERM  TO  BE  COMPUTED  FROM  THE  DATA.  (NH-1  FOR  SA300200 
DIPOLES,  2  FOR  QUADRUPOLE5,  ETC.)  SA300210 

SA300220 
SA300230 
SA300240 
SA300250 
SA300260 

■  DETERMINES  WHETHER  OR  NOT  THE  MAGNETIC  DATA  IS  TO  BE  PLOTTED.  SA300270 
(  I P 1 =  0  MEANS  THAT  THE  DATA  WILL  NOT  BE  PLOTTED.) 


IR  -  DETERMINES  WHETHER  OR  NOT  TO  READ  THE  DATA  FROM  THE  FILE 
DAT024.  (IR*0  MEANS  THAT  THE  DATA  WILL  NOT  BE  READ  FROM 
THE  FILE.) 


IP1 


IW  -  DETERMINES  THE  TYPE  OF  TNTEGEATING  SCHEME  TO  BE  USED.  I  IW*0 
MEANS  THAT  THE  EXACT,  ALGEBRAIC  SCHEME  IS  TO  BE  USED.) 

R 1  -  THE  RADIUS  OF  THE  MEASUREMENT  SPHERE  IN  INCHES. 

CV  -  THE  VALUE  OF  THE  CAL  SIGNAL  (CS'CZ)  IN  GAMMAS. 


SA300280 
SA300290 
SA300300 
SA3C0310 
SA300320 
SA300330 
SA300340 
SA300350 
SA300360 

PY  -  THE  SCALE  FACTOR  ( G AMMA S / I NCH )  FOR  THE  Y-AXIS  IF  THE  DATA  IS  TO  SA300370 
BE  PLOTTED.  (IF  Pv=0.0  A  FACTOR  WILL  BE  COMPUTED  FROM  THE  DATA. ) SA300380 

SA300390 

I P2  -  DETERMINES  WHETHER  OR  NOT  THE  MAGNETIC  DATA  IS  TO  BE  PRINTED.  SA300400 
( I P=0  MEANS  THAT  THE  DATA  WILL  NOT  BE  PRINTED.)  SA300410 

SA300420 
SA300430 
SA300440 
SA300450 
SA300460 
SA300470 
SA300480 


CS  -  THE  STATIC  MEASUREMENT  WITH  THE  CAL  SIGNAL. 

CZ  -  THE  STATIC  MEASUREMENT  WITHOUT  THE  CAL  SIGNAL. 

F  (  I )  -  THE  DATA  REPRESENTING  THE  NORMAL  COMPONENT  OF  THE  MAGNETIC 
FIELD  ALONG  GREAT  CIRCLES  ON  THE  MEASUREMENT  SPHERE. 


E-l 


NOLTR  73-191 


DIMENSION  F(IOOO) .PV(  200) .A<11),B<10>.R!3).D<3) 

NAMELIST /NAM/NO. Nl.NH, l R.lPl,  IW.Rl.CV.PY 
DATA  PI/3. 14159265358979/ 

PEWINO  7 
I  PT»0 

10  REAOI5.01)  N0.N1.NH.IR.IP1.IW 

IF (  IPT.E0.0.AND.IP1.NE.0)  CALL  CALCM1 (0.10H024  LACKEY. -10.) 

IF(NO.EO.O)  GO  TO  90 

IF ( IPl.NE.O)  I PT  « 1 

READ! 5 .02 )  Rl.CV.PY 

WRITE! 6 .NAM ) 

WP  •'£(6.03) 

READ! 5,01)  IP2 
N3«N0*N1 

IF ( IR.EO.O)  READ! 5 .04 )  CS .CZ . ( F <  I)  ,  1 ■ 1 »N3 ) 

IF(IR.EQ.O)  WRITEI7.04)  C S .CZ  .  (  F (  I  )  ,  I ■ 1 ,N3 ) 

IF(IR.NE.O)  READ! 7,04)  CS ,CZ . ( F (  I  )  ,  1  -1 ,N3 ) 

CALL  SHIFTIF, NO. N1 .CV.CS.CZ  ) 

I F ( I W.EQ.O )  CALL  WGT1 (N0.N1 ,PV) 

IF ( IW.NE.O )  CALL  WGT3 ( NO .N 1 , P  V  ) 

CALL  AMPMNTIN0.N1 .0.Rl.F.PV. A, B) 

A0» A (11*1, E-5 
FO«AO/( (Rl*2.54)**2) 

DO  20  1*1 . N 3 
20  F (  I  )  «F ( I ) *1 .E-5-F 0 
WRITEI6.05)  AO 

IF ( r  P2.NE.0 )  CALL  PR  I NTF ( F .NO  .N1 ) 

IF ( IPl.NE.O)  CALL  DATPLT (N0.N1 »F,PY) 

DO  80  NI-l.NH 

CALL  AMPMNT(N0.N1 ,NI ,R1 .F.PV.A.B) 

IF(NI.GT.l)  GO  TO  60 

o  ( i )  -  a  ( :  j 

D( 2 ) *B( 1 ) 

DO)  ■AH', 

CALL  SPCOOR(D.R) 

WRITEI6.06)  D 
WR I TE ! 6 . 0  7 )  R 
CALL  PRINTKD) 

GO  TO  70 

60  IFINI.GT.2)  GO  TO  t0 
S3-S0RTI3.) 

01 1*S3*A ( 3 ) -A ( 1 ) 

022  —  S3*A(  3  » -A  ( 1  ) 

Q33— Q1 1-022 
012«S3*B(2) 

01 3*S3*A ( 2 ) 

023«S3*B( 1 ) 

WRITE (6, 09)  01 1 ,022.033,012.013,023 
70  WRITEI6.il )  N I 
NI 1*NI+1 

WRITEI6.12)  (All). 1*1. Nil) 

WR I TE ( 6 . 1 2  I  (B(I».I*1.NI» 

80  CONTINUE 
GO  TO  10 

90  IF(IPT.NE.O)  CALL  CALCMl  (  0 . 10H024  LACKEY, +10. ) 

STOP 

01  FORMAT (1415) 


SA300490 

SA300500 

►SA300510 

SA300520 

SA300530 

SA300540 

SA300550 

SA300560 

SA300570 

SA300580 

SA300K90 

SA300600 

SA300610 

SA300620 

SA300630 

SA300640 

SA300650 

SA300660 

SA300670 

SA300680 

SA300690 

SA300700 

SA300710 

SA300720 

SA300730 

SA300740 

SA300750 

SA300760 

SA300770 

SA300780 

SA300790 

SA300800 

SA300810 

SA300820 

SA300830 

SA300840 

SA300850 

SA300860 

SA300870 

SA300880 

SA300890 

SA300900 

SA300910 

SA300920 

SA300930 

SA300940 

SA300950 

SA300960 

SA300970 

SA300980 

SA300990 

SA301000 

SA301010 

SA301020 

SA301030 

SA301040 

SA301050 

SA301060 

SA301070 

SA301080 


E-2 


NOLTR  73-191 


02 

FORMAT! 

03 

FORMAT! 

04 

FORMAT! 

06 

FORMAT! 

03 

FORMAT! 

07 

FORMAT! 

09 

FORMAT! 

.  (3E20. 

11 

FORMAT! 

12 

FORMAT! 

END 

9F8.4) 

44H0ENTER  1  OR  0  TO  INDICATE  DATA  PRINT  OR  N0T9 
9F6.1  ) 

14H  (DX.DY.DZ)  -  .3F10.2) 

26H0THE  MONOPOLE  MOMENT  IS  --.F20.6//I 
1 4H  (0  .02,01)  ■  , 3F10.2  ) 

54H0THE  OUADRUPOLE  MOMENTS  011,022.033.012.013. 


12)  I 

27HOTHE  A  (  B  COEFFS.  FOR  THE  , 12.16HTH  HARMONI 
1H  .5E20.12I 


SUBROUTINE  AMPMNTIN0.N1 .N.Rl.F.P.A.B) 

DIMENSION  F( 1000) ,P(2 00) ,PN( 10.200) .AIlll.BIlO) 
DATA  PI/3. 14159265338979323846/ 

CALL  POLVAL(Nl.N.PN) 

KL-0 

N2= ( Nl+1 ) /2 
D 1  * P I /FLOAT ( NO  ) 

D2  »2 • *P I /FLOAT (Nl-1  ) 

DO  10  K«1  .NO 
A1«D1*FL0AT ( K  - 1  ) 

LP-  +  1 
L  I  *0 

DO  10  L ■ 1 , N 1 
XL  =  KL  +  1 

IF (L.GT ,N2 )  LP--1 
LI -LI+LP 

A2»A1 -.FLOAT!  l-LP)*PI/2. 

Fl-FUL) 

A2N«FLOAT(2*N-.l  ) 

A1N-FL0ATIN.1) 

AR*(Rl*2.54)**!N+2) 

NN-N+1 

DO  10  MM-l.NN 

M-MM-1 

AM.FLOAT(M) 

IF(KL.EO.l)  A ( MM ) »0 • 

'( F  (KL.EQ.l.AND.M.GT  .0  )  B(M)-0. 

PNM1 »PN ( MM , L I )*C0S(AM*A2) 

PNM2=PN(MM,LI ) *S I N ( AM*A2 ) 

AC  =  < A2N*AR/A1N)*F1*P(LI  ) 

A(MM)=A(MM)-.AC*PNM1 
IF(M.GT.O)  B(M)»B(M)-.AC*PNM2 
10  CONTINUE 
RETURN 
END 


SUBROUTINE  WGTHNO.Nl.P) 

DIMENSION  0(50)  ,P(200) 

N4* (Nl*i ) / 4 
AN*FLOAT (NO) 

CALL  WGT2IN1.D) 

DO  10  J1-1.N4 
J3*Nl/2+2-Jl 
DJ=D( J1 ) / ( 4  »*AN ) 

P( J1 )*DJ 
10  P!J3)«DJ 

IF! INT(FL0AT(N1-1 )/4.+. 11*4. NE. (Nl-1 ) >  GO  TO  20 
J1-N4+1 


023  ARE 
C  ARE9 ) 


—  / 


SA301090 
SA301100 
SA301110 
SA301120 
SA301130 
SA30U40 
SA301150 
SA  30 1 1 60 
SA301170 
SA301180 
SA301 190 
SA301200 
SA301210 
SA301220 
SA301230 
SA301240 
SA301250 
SA301260 
SA301270 
SA301280 
SA301290 
SA301300 
SA301310 
SA301320 
SA301330 
SA301340 
SA301350 
SA301360 
SA301370 
SA301380 
SA301390 
SA301400 
SA301410 
SA301420 
SA301430 
SA301440 
SA301450 
SA301460 
SA301470 
SA301480 


SA301490 

SA301500 

SA301510 

SA301520 

SA301530 

SA301540 

SA301550 


SA301560 

SA301570 

SA301580 

SA301590 

SA301600 

SA301610 

SA301620 

SA301630 

SA301640 

SA301650 

SA301660 

SA301670 

SA301680 
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P< J1)*D< J1»/(4.»AN) 

20  N4-IN1+1 1/2 
P(N4)*P(N4)t2. 

RETURN 

END 

SUBROUTINE  WGT2IN.D) 

DIMENSION  A ( 50  *50  I »0(  501 »C ( 30  I 

DOUBLE  PRECISION  A. C. PI. AN 

DATA  P  1/3. 141 5926535897 9)23(46264300/ 

N3-IN+1 1/4 

N4-N3+1 

DO  10  1*2. N4 

C<  I  )  • 1 » /FLOAT (2*1-1? 

A  <  1. 11-1. 

A (  I  .N4I-0. 

DO  10  J*2.N3 

AN«2.*P!*DBLE(FLOAT(J-l  I ) /OBLE I  FLOAT  I N-l ) ) 

10  A  I  I  » J )  *  ( DCOSI AN) ) •*! 2*1  -2 ) 

C(l)  -2. 

A! l.N4)«l, 

DO  20  J-1.N3 
20  A ( 1.J1-2, 

N3«N4 

I F ( I  NT (FLOAT (N-l l/4.  +  .l)*4.NE. (N-l)l  N3-N3-1 
CALL  GAUSELIA, :,N3,N3.1 ) 

DO  30  1*1. N3 
30  D<  I)«C( II 
RETURN 
END 

SUBROUTINE  WGT3 (N0.N1 .P ) 

DIMENS'ON  P ( 200 ) 

DATA  PI/3.  14159265358979323846/ 

D2«2.*'PI  /FLOAT  (  N 1  —  1  1 
E  1  *  (  SI  K*  (  02/4.  )  )»*2 
E2*SIN(D2/2. I 
P( 11*E1/(2.*FL0AT(N0» I 
N2* (Nl+1 1/2 
P(N2)*P( 1 )*2. 

IF (N1.LE.3)  RETURN 

N3-N2-1 

DO  10  L*2.N3 

S2«SIN(D2*FLOAT(L-l )  I 

P(L)*A  S(S2*E2I/(2.*FL0AT(N0>  ) 

10  CONTINU 
RETURN 
END 

SUBROUTINE  GAUSEL (A.C.M.N, I T ) 

DIMENSION  A(50. 50). C  (  50 ) . 16(50) 

DOUBLE  PRECISION  A.C.O 
WRITEI6.03) 

DO  20  l-l.M 

20  WR I TE ( 6 .04 )  ( A ( I . J ) . J* ! »N ) ,C (  I  ) 

DO  70  1*1. N 
70  I B  (  1  ) *  I 

DO  60  I-l.M 

IF(  IT.NE.O.AND.M.NE.N)  GO  TO  35 

D*0. 


SA301690 

SA301700 

SA301710 

SA301720 

SA301730 

SA301740 

SA301750 

SA301760 

SA301770 

SA301780 

SA301790 

SA301800 

SA301810 

SA301B20 

SA301830 

SA301B40 

SA301850 

SA301860 

SA301870 

SA301880 

SA301890 

SA301900 

SA301910 

SA301920 

SA301930 

SA301940 

SA301950 

SA301960 

SA301970 

SA301980 

SA301990 

SA302000 

SA302010 

SA302020 

SA302030 

SA302040 

SA302050 

5A302060 

SA302070 

SA302080 

SA302090 

SA302100 

SA302110 

SA302120 

SA302130 

SA302140 

SA302150 

SA302160 

SA302170 

SA302180 

SA302190 

SA302200 

SA302210 

SA302220 

SA302230 

SA302240 

SA302250 

SA302260 

SA302270 

SA302280 
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JJ-0 

SA302290 

DO  10  J-I.N 

SA302300 

IF<DABS<A< I ,J) I.LE.O)  GO  TO  10 

SA302310 

JJ-J 

SA302320 

D-DABS< A<  t »J)  1 

SA302330 

10 

CONTINUE 

SA302340 

IF<JJ.EQ.I)  GO  TO  35 

SA302350 

I F ( JJ.NE .0  I  GO  TO  140 

SA302360 

WR I TE ( 6 .01 )  I 

SA302370 

GO  TO  110 

SA302380 

140 

DO  160  J-liM 

SA302390 

D" A  <  J  » JJ ) 

SA302400 

A( J.JJ)-A< J.I) 

SA302410 

160 

a<  j.n-o 

SA302420 

ID-IBI JJ) 

SA302430 

I B ( JJ ) ■ IB ( I 1 

SA30244O 

IB (  1 1 ■  ID 

SA302450 

35 

D»A<  i.n 

SA302460 

DO  30  J* I 

SA302470 

30 

A  (  I  * J ) ■ A ( I  * J ) /D 

SA302480 

C<  I  1 -C  < I )/D 

SA302490 

DO  50  J-l.M 

SA302500 

IF(J.EQ.t)  GO  TO  SO 

SA302510 

D-A< J. I ) 

SA302520 

IFIO.EQ.O.)  GO  TO  50 

SA302530 

DO  40  K-I.N 

SA302540 

40 

A<  J,K)-A< J,K)-D»A<  I  ,K) 

SA302550 

CIJI'CIJI-0»Clll 

SA302560 

50 

CONTINUE 

SA302570 

60 

CONTINUE 

SA302580 

110 

IF( IT.EO.O.OR.M.NE.N)  GO  TO  100 

SA302590 

DO  120  I-l.N 

SA302600 

120 

A  < I.N)-C(I) 

SA302610 

DO  130  I-l.N 

SA302620 

II-IB< I > 

SA302630 

130 

C<  II)-AII,N> 

SA302640 

100 

CONTINUE 

SA302650 

IFMT.EO.O)  WR I TE  ( 6*02 )  <IB(II.  I-l.N) 

SA302660 

WRITE! 6  »05 ) 

SA302670 

DO  80  I-l.N 

SA302680 

80 

WR I TE ( 6 «04 )  ( A( I  * J) tJ-1 *N) *C(  I  ) 

SA302690 

RETURN 

SA302700 

01 

FORMAT  <  5H1ROW  .I2.14H  IS  ALL  ZEROS.) 

SA302710 

02 

FORMAT ( 24H0 SINGLE  PERMUTATION  IS.. .2013//) 

SA302720 

03 

FORMAT<21HOTHE  INPUT  MATRIX  I  59/ / ) 

SA302730 

04 

FORMAT ( 1H  .7D16.8 ) 

SA302740 

05 

FORMAT J22H0THE  OUTPUT  MATRIX  IS9//> 

SA302750 

END 

SA302760 

SA302770 

SUBROUTINE  POLVAL < N1 .N.PN ) 

SA302780 

DIMENSION  PN< 10.200 ) 

SA302790 

DATA  PI/3. 14159265358979123846/ 

SA302800 

D2-2.-PI /FLOAT (Nl-1 ) 

SA302810 

N2- <  Nl  +  1 ) /2 

SA302820 

DO  10  I-1.N2 

SA302830 

A2«D2*FL0AT< 1-1 ) 

SA302B40 

C2»COS<A2) 

SA302B50 

NN-N+1 

SA302860 

DO  10  MM-l.NN 

SA302870 

M-MM-1 

SA302B80 
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■SPNM(N,M,C2) 


PNIMM, ! ) 
10  CONTINUE 
RETURN 
END 


SUBROUTINE  SHI  FT ( F .NO ,N1 ,CV .CS .CZ  I 
DIMENSION  F (000) 

Pl» « F  I  D+FtNl  )  » /2. 

N3-IN1+1 )/2 
P2-F(N3) 

DO  10  K0-1.N0 
KS-l+IKO-l  )*N1 
KE-K0*N1 
KK-N3-MK0-1  1  *N  1 

COR-(2.*Pl+P2-F(KS)-F(KK)-F(KE))/3, 

DO  10  L0-1.N1 
KK-LO+OCO-l  )*N1 

10  F(KK)-(F(KK)4C0R|*CV/(CS-CZ) 

RETURN 

END 

SUBROUTINE  PRINTI (W) 

DIMENSION  R ( 3 1  .5(3) ,W<3) 

DATA  ST.GT/1H-.1H+/ 

Pl-3. 14159265 
DO  10  1-1.3 

10  S(  I»— W(  I  ) 

R  ( 1 ) -SORT (5(1) #*2+5 ( 2)**2+S(3)#*2) 
R(2)-ATAN2(S(2)  .S(  10*180. /Pi 
R ( 3 ) -ATAN2 ( SORT (S(l)**2+S(2)**2).S(3))#180./Pl 
W3-ABS ( W ( 3 ) ) 

W32- • 2*W3 

AMI-SORT (S(l)»»2+S (2 )»*2) 

AM12- • 2*AM1 
PRINT  11,  AMI 
PRINT  12.  R ( 2 ) 

PRINT  13,  AM12 
PRINT  14,  W3 

IF(S(3).LT.O.)  PRINT  13,  ST 
IF ( S ( 3 ) .GE.O.)  PRINT  15.  GT 
PRINT  16.  W32 

11  FORMAT ( 54H  THE  COMPENSATING  MAGNET  FOR  THE 


11  FORMAT ( 54H  THE  COMPENSATING  MAGNET  FOR  THE  XY-PLANE  SHOULD  B 
+.2HE  .F7.1.7H  GAUSS-) 

12  FORMAT ( 47H  CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  ,F6.1» 
+17H  DEGREES  FROM  +X.) 

13  FORMAT ( 25H  (THE  MAGNET  SHOULD  READ  .F7.1.21H  GAMMA  AT  ONE  METER.) 

14  FORMAT ( 43H  THE  COMPENSATING  MAGNET  FOR  THE  Z-AXIS. 

+1 1 H  SHOULD  BE  .F7.1.7H  GAUSS-) 

15  FORMAT (46H  CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING, 

+9H  TOWARDS  .A1.14HZ.  (THE  MAGNET) 

16  FORMAT ( 13H  SHOULD  READ  .F7.1.22H  GAMMA  AT  ONE  METER.)) 

RETURN 


FUNCTION  SPNM(N.M.X) 

SPNM.PNM(N,M,X) 

IF(M.EO.O.OR.M.GT.N)  RETURN 
SPNM-SQRT (2.*ANF(N-M)/ANF(N+M) )*SPNM 
RETURN 
END 


SA302890 
SA302900 
SA302910 
SA302920 
SA302930 
SA302940 
SA302950 
SA3C2960 
SA302970 
SA302960 
SA302990 
SA303000 
SA303010 
SA303020 
SA303030 
SA303040 
SA303050 
SA303060 
SA303070 
SA303060 
SA303090 
SA303100 
SA303110 
SA303120 
SA303130 
SA303140 
SA3031 50 
SA303160 
SA303170 
SA303180 
SA303190 
SA303200 
SA303210 
SA303220 
SA303230 
SA303240 
SA303250 
S A303260 
SA303270 
SA303280 
SA303290 
SA303300 
SA303310 
SA303320 
SA303330 
) 5A303340 
SA303350 
SA303360 
SA303370 
S A303380 
SA303390 
SA303400 
SA303410 
SA303420 
SA303430 
SA303440 
SA303450 
SA303460 
SA303470 
SA303480 
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FUNCTION  PNM(N»M»X ) 

PNM-0. 

IF(M.GT.N)  RETURN 

I F  <  (  ABS<  l.-ABS(X)  1J.GT.1.E-9)  GO  TO  20 

IF(M.NE.O)  RETURN 

PNM--1. 

lF<X.GT.0..0R.N.EQ.INT(FL0AT<N)/2.+.l)*2)  PNM-1. 

RETURN 

20  CNM» ( 2»##N ) *ANF ( N ) *ANF ( N-H I 
PNM-1. 

lF(M.NE.O)  PNM-SQRT ( 1 ,-X*X ) **M 

CNM-ANF(2»N)»PNM/CNM 

PNM-1. 

IF(M.NE.N)  PNM-X**(N-M) 

IF(N-M.LE.l)  GO  TO  40 
PRD1-1. 

NT ■ ( N-M ) /2 

DO  30  t-l.NT 

AN 1 "FLOAT ( N-M-2* I +2 ) 

AN2«FLOAT(2*I) 

AN3-FLOAT(2*N-2*I+l I 
PRD1--PR01*AN1*(AN1-1 )/(AN2»AN3| 

NE-N-M-2* I 
AN  1  ■  1  • 

IF(NE.GT.O)  AN1«X**NE 
PNM-PNM+PRD1 *AN1 
30  CONTINUE 
40  PNM«CNM»PNM 
RETURN 
END 

FUNCTION  ANF(N) 

DOUBLE  PRECISION  AN 
ANF  ■  1 . 

AN-1. DO 

IF(N.LT.O)  PRINT  01 
IF ( N.LT.2 )  RETURN 
DO  10  1-2.  N 

10  AN-AN»DBLE ( FLOAT  (  I  )  I 
ANF-SNGL ( AN) 

R  E  TURN 

01  FORMAT ( 37H1 FACTOR  I AL  INTEGER  IS  LESS  THAN  ZERO.//) 

END 

SUBROUTINE  SPCOORID.R) 

DIMENSION  0(3), R(3) 

DATA  PI/3.14159265358979/ 

R  (  1  )  -  SORT  (DOT  (  D,'  • 

R ( 2 ) -0. 

R ( 3 ) -0. 

IF ( R ( 1 ) . EQ.O. )  RETURN 

I F ( 0 ( l)»»2+D(2)*»2.NE.O.)  R ( 2  > -ATAN2 ( D ( 2 ) ,D( 1 ) ) *1 80. /PI 
R ( 3 ) -ATAN2 ( SORT (0(1)**2+0(2>**21 »D(3) )  #180» /P I 
RETURN 
END 

SUBROUTINE  SUM( A,X,B»Y,Z) 

DIMENSION  X ( 3 ) »Y(3) »Z(3) 

DO  10  1-1.3 


SA303490 

SA303500 

SA303510 

SA303520 

5A303530 

SA303540 

SA303550 

SA303360 

SA303570 

SA303560 

SA30359C 

SA303600 

SA303610 

SA303620 

SA303630 

SA303640 

SA303650 

SA303660 

SA303670 

SA303680 

SA303690 

SA303700 

SA303710 

SA303720 

SA303730 

SA303740 

SA303750 

SA303760 

SA303770 

SA303780 

SA303790 

SA303800 

SA303810 

SA303820 

SA303830 

SA303840 

SA303850 

SA303860 

SA303870 

SA303880 

SA303890 

SA303900 

SA303910 

SA303920 

SA303930 

SA303940 

SA303950 

SA303960 

SA303970 

SA303980 

SA303990 

SA304000 

SA304010 

SA304020 

SA304030 

SA304040 

SA304050 

SA304060 

SA304070 

SA304080 
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10  Z(1)-A»XU  )+BtV(  l ) 

RETURN 

END 

FUNC' ION  OOT(X.Y) 

DIMENSION  X  ( 3 ) * Y( 3 ) 

D0T-X(  1  >»Y<1H-X<2)*Y(2)+X(3)»V(3) 

RETURN 

END 

SUBROUTINE  PRINTF ( F.N0.N1 ) 

DIMENSION  F ( 800 ) *F1 ( 100 ) 

DO  20  K0-1.N0 
DO  10  I *1 »N1 
I  I-I+IKO-l  )*N1 
10  F1III.FI  II )*1.E5 
WRITEI6.01)  KO 

20  WR I TE ( 6 *02 )  ( FI (KK ) »KK-1 »N1 ) 

01  FORMAT!  11HOCURVE  NO.  .12) 

02  FORMAT  1 1H  .8F8.1) 

RETURN 

END 

SUBROUTINE  DATPLTlNO.Nl .F.YDIST) 

DIMENSION  FI1000)  .F1I33).F2I73).X<33)  .XI (73) • C C 1  ).P(1  I.CHI16) 
DATA  PI/3.14139265358979/ 

DATA  CH/1H1.1h2.1H3.1H4.1h5.1H6.1H7. 1H8 .1H9.2H10.2H11.2H12.2H13. 

♦  2H14.2H:.3,2H16/ 

N3-N0*N1 

CALL  YSCALE(N3,F,YDIST,YMAX,YMIN) 

DX-360. /FLOAT  ( Nl-1 ) 

F1(1)-F1(2)-YMAX  S  XIH-0.  S  X(2)-360. 

CALL  CALCMl  (2.X.F1  ,0.0.  .  360.  .  YMIN  ,YMAX  .6  •  .7.  »T  I TLE  .0. 

♦  20HC0LAT I  TUDE  (DEGREES) .-20. 30HNORMAL  MAGNETIC  FIELD  (GAMMAS), 

♦  30,0. » 18  ) 

FI ( 2 ) ■ YM I N  S  X( 1 )-X(2)-360. 

CALL  CALCMK-2.X.F1.0) 

FI ( 1 ) »F 1 ( 2 ) *0.  *  X(l)-360.  *  XC  2 ) -0. 

IFIYMAX.GT. 0.0. AND.YMIN.LT. 0.0)  CALL  CALCMl (-2 ,X, FI ,0) 

DO  10  I-1.N1 
10  X( I ) »DX* FLOAT { I  — 1 ) 

DO  20  1-1.73 
20  XI ( I )-5.*FLOAT( 1-1 ) 

IJ-0 

DO  50  I-1.N0 
DO  30  J-1.N1 
IJ-IJ+1 

30  FI ( J) -F (  IJ)*l.E+5 

CALL  FNCTONIFl ,N1-1 ,C .C0.P.N2 ,DEV) 

DO  40  N- 1 ,N2 
EN-N 

DO  40  J-l .73 
XX-X1 ( J)#PI/180. 

IF(N.EQ.l)  F2 ( J ) -CO 
40  F2(J).F2( J)+C(N)*SIN(EN#XX+P(N) ) 

CALL  CALCMl (-73,X1»F2»0) 

DO  50  J-l.Nl 
NC-l+I/10 

CALL  SYMBL4(X( J)/60.. (Fl( J)-YMIN)/YDIST».08,CH( I ) ,0. ,NC) 

50  CONTINUE 


SA304090 
SA304100 
SA3041 10 
SA304120 
SA304130 
SA304140 
SA304130 
SA304160 
SA304170 
SA304180 
SA304190 
SA304200 
SA304210 
SA304220 
SA304230 
SA304240 
SA304250 
SA304260 
SA304270 
SA304280 
SA304290 
SA304300 
SA304310 
SA304320 
SA304330 
SA304340 
SA304350 
SA304360 
SA304370 
SA304380 
SA304390 
SA304400 
SA304410 
SA304420 
SA304430 
SA304440 
SA304450 
SA304460 
SA304470 
SA304480 
SA304490 
SA304500 
SA304510 
SA304520 
SA304530 
SA304540 
SA304550 
SA304560 
SA304570 
SA304580 
SA304590 
SA304600 
SA304610 
SA304620 
SA304630 
SA304640 
SA304650 
SA304660 
SA3O4670 
SA304680 
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RETURN 

END 

SUBROUTINE  FNCTON < F .NSCANS .C . CO. PHI »N2 .DEV) 
DIMENSION  Fill  .GOII.CIl)  ,PHI  (II 
DATA  Pl/3. 14159265358979/ 

DX»2.*PI /FLOAT (NSCANS) 

NE -NSCANS/2+ 1 
C0-0. 

DO  10  J-l. NSCANS 
10  CO-CO+FI J) /FLOAT(NSCANS) 

DO  30  N-l.NE 

EN-N 

Sl-0. 

Cl-0. 

X--DX 

DO  20  J-l. NSCANS 
X-X+OX 

S1«S1+(1./PI )»F( J)*SIN(EN*X)*DX 
20  Cl«:i+< l./PI )*F(J)«COS(EN*X)*DX 
C(  N ) -SORT (S1**2+C1**2) 

I F  (  ( FLOAT (N) J.EO. (FLOAT (NSCANS 1/2. )I  C(N)-C(N)/2. 
PHI ( N ) ■0.0 

30  IF( (S1**2+C1**2).NE.0.)  PHI < N ) -ATAN2 ( Cl . SI ) 

DO  50  N-l.NE 

EN-N 

X--DX 

DEVI -0  r 

DO  40  J-l, NSCANS 
X-X+DX 

IF(N.EO.l)  GIJ1-C0 

G(  J)»G( J)+C(N)*SIN(EN*X+PHI <N|) 

40  IF(ABS(G( J)-F( J) I.GT.DEVl)  DE VI - ABS ( G ( J ) -F ( J >) 
IF(N.EQ.l)  DEV-DEV1 
IF(N.EQ.l)  N2-  1 
IF(OEVl.LT.DEV)  N2-N 
IF(OFVl.LT.DEV)  DEV-DEV1 
50  CONTINUE 
•  RETURN 
END 

SUBROUTINE  YSCALE ( N ,F , YD , YX . YM ) 

DIMENSION  F(800) 

PP-F( 1 ) 

PN-PP 

DO  10  I-l.N 

IF  C  F  (  D.GT.PP)  PP-F(I) 

IF(F( I) .LT.PNJ  PN-FII) 

10  CONTINUE 
PP*PP#1 ,E+5 
PN-PN*l.E+5 
P-PP-PN 
SN-0. 

IFtPP.GT.O.)  SN»1. 

IFIYD.NE.O. )  GO  TO  50 

DO  20  1-1.21 

FA«(  l.E-9)*l 10.**I  ) 

FAl-FA*.l 

IFIP/FA.GE.I.)  GO  TO  20 
GO  TO  30 


SA304690 
SA304700 
SA304710 
SA304720 
SA304730 
SA304740 
SA304750 
SA304760 
SA304770 
SA304780 
SA304790 
SA304800 
S A3 048 10 
SA304820 
SA304830 
SA304840 
SA304850 
SA304860 
SA304870 
SA304880 
S / 304890 
SA304900 
SA304910 
SA304920 
SA304930 
SA304940 
SA304950 
SA304960 
SA304970 
SA304980 
SA304990 
SA305000 
SA305J10 
SA305020 
SA305030 
SA305040 
SA305050 
SA305060 
SA305070 
SA305080 
SA305090 
SA305100 
SA305110 
SA305 120 
SA305130 
SA305140 
SA305150 
SA305160 
SA305170 
SA305180 
SA305190 
SA305200 
SA3052 10 
SA305220 
SA305230 
SA305240 
SA305250 
SA305260 
SA305270 
SA305280 
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20  CONTINUE 
30  YD*5.*FAi 

YX*FLOAT(INT(PP/YD+SN) )*YD 

YM*YX-7.*YD 

CN-4. 

DO  40  1*1*3 

CN«CN».3 

YD1*CN*FA1 

YX  1 *FLOAT ( INT(PP/YD1  +  SN))*YD1 
YM1*YX1-7.#YD1 

I F ( ( 7.*YD1-P).LT.O.O.OR.YX1.LT.PP.OR.YM1.GT.PN)  return 
YD*YD1 
YX*YX 1 
YM«YM1 
40  CONTINUE 

50  YX*FLOAT( I  NT ( PP/YD+SN I) *YD 
YM-YX-7.*YD 
RETURN 
END 


5A305290 

SA303300 

S-^05310 

SA305320 

SA305330 

SA305340 

SA303350 

SA305360 

SA305370 

SA305380 

SA305390 

SA305400 

SA305410 

SA303420 

SA305430 

5A305440 

SA305450 

SA30S460 

SA305470 


E-IO 


APPENDIX  F 

SAMPLE  PROBLEMS  FOR  SA3024 

I.  PROBLEM  EXECUTED  ON  INTERCOM  (TIME-SHARING  SYSTEM) 


N0L  INTFRC0M 
TYPE  "LOGIN." 

L0P1N(  S) 

0  24533LACK/^— I M/4 


09/07/73  14.35.39.  BD/42/31 

C-  SFTIIP. FORTRAN 

0 N  AT  14.36.03.  09/07/73 

♦♦FORTRAN 

♦  ♦NEW  OR  OLD  FILE-  ATTACH  <  BN3024.  BN  302  4)  ♦ATTACH!  DAT024,  DAT02  4) 

I  4. 36  «  38  •  ATTACH  C  BN  3024. BN 302 4) 

1  4.36. 42. ATTACH ( DAT024#  DA TOP 4) 

♦ ♦RFADY . 

REWIND(BN3024)^C0PYBR(BN3024<F1L*16>^RETURN(  BN 3024) ♦TAPE CON) 


♦♦READY. 

FIL. 


6  25 

3 

1 

0 

96.00 

1.000 

0.000 

_ L 

6  25 

3 

0 

0 

96.00 

1.000 

0.000 

_ Q 

10  0  -5043  -4755  -3815 

12596  4313  -1257  -3821  -4763 

-3863  -3410  -3226  -3394  -3865 
-9028  -8812  -8 146  -6754  -4208 
-6727  -8155  -8806  -9041  -8976 
72  -1604  -4806  -7289  -8504 


-1233  4384  12737  17492 
-5027  -4998  -4765  -4365 
-4359  -4767  -4990  -5037 
-1189  272  -1197  -4267 
-8510  -7267  -4838  -1645 
-8971  -9037-13025-12877 


-  12544-12066- 1  1 480-  10966-10779-10971-1  1 464-  12066-12554 
-12883-13030-12926-12190  -9905  -3946  5892  12194  5952 

-406  4  -99  30-  12196  -  129  10- 13042- 17035-16916-  16423-15194 
-12819  -9618  -8009  -9665-12770-15201-16425-16920-17041 
-16906-16408-15151-12748  -9465  -7798  -9462-12745-15181 
-16416-1691 1-17037-21024-20924-20199-17884-12022  -2110 
4183  -2072-12092-17925-20192-209 1 1-21036-20884-20568 
-20056-19474- 18985-18775-18979- 19477-20063-20545-20886 
-21034-25024-24970-24520-23276-20863-17702-15987-17628 


Data  Tape 


F-l 


-20829-23299-24484-24970-25036-24817-24156-22743-20225 

-  17136-15667-1 7203-20207-227 12-24146-24815-25035  _ 

0  0  0  0  0  0 
T  AFE(0FT) 


Data  Tape 


SNAM 

NO 

X 

6# 

N  1 

s 

25# 

NH 

= 

3# 

I  R 

z 

1# 

IP1 

= 

0# 

I  W 

s 

1# 

R  1 

9 

0.96E+02# 

CV 

* 

0. 1F+01# 

py 

9 

0.0# 

SEND 

ENTER  1  0R  0  T0  INDICATE  DATA  FRINT  0R  N0TI 
THE  M0N0F0LF  MOMENT  IS  --  14.339536 


CURVF  NO. 

1 

-528.4 

-499.6 

-405.6 

-147.4 

414.3 

1249.6 

1725.  1 

1235.5 

407.2 

- 149.B 

-406.2 

-500.4 

-526.8 

-523.9 

-500.6 

-460.6 

-410.4 

-527.8 

-365.  1 

-346.7 

-363.5 

-410.6 

-460.0 

-500.8 

-523.  1 

Cl'RVE  NO. 

2 

-527.0 

-505. 4 

-438.6 

-299.6 

-45.0 

256.9 

403.0 

256.  1 

-50.9 

-296.9 

-439.7 

-504.8 

-528. 3 

-521.8 

-475.2 

-352.9 

-108.0 

211.3 

383.0 

215.4 

-  104.8 

-353.  1 

-474.6 

-521.3 

-527.9 


r-2 


CURVE  NO.  3 


-527.0 

-512.2 

-478.9 

-431.1 

-372.5 

-321 . 3 

-302.4 

-321.6 

-372.9 

-431. 1 

-479.9 

-512.8 

-527.5 

-517.1 

-443. 5 

-215.0 

380.9 

-528.7 

13X4.7 

1994.9 

1370.7 

369. 1 

-217.5 

-444.  1 

-515.5 

CURVE  NO. 

4 

-527.4 

-515.5 

-466.2 

-343.3 

-  105.8 

214  3 

375.2 

209.6 

-  100.9 

-344. 0 

-466.4 

-515.9 

-526.0 

-514.5 

-464.7 

-339.0 

-98.7 

-527.6 

229.X 

39  6.3 

229.9 

-98.4 

-342.0 

-465.5 

-515.0 

CURVE  NO. 

5 

-527.0 

-517.0 

-444.5 

-213.0 

373.2 

1 3X4.4 

1993.7 

1  368.2 

36X.2 

-217.  1 

-443.8 

-515.7 

-528.2 

-513.0 

-481.4 

-430.2 

-372.0 

-528.0 

-323.  1 

-302. 1 

-322.5 

-372.3 

-430.9 

-479.1 

-51 3.2 

CURVE  NO. 

6 

-526.9 

-521.5 

-476.5 

-352.3 

-110.6 

205.3 

376.8 

212.7 

-  107.4 

-354.  4 

-472.9 

-521.5 

-528. 1 

-506.2 

-  440  .  1 

-298.8 

-47.0 

-528.0 

261.9 

406 .  b 

255.2 

-45.2 

-295.7 

-439.1 

-506.0 

(  DX.DY.DZ) 

= 

825.54 

•211.43 

20. 

71 

(  D  .02,01) 

r 

b52. 44 

-  14.37 

88. 

XI 

THE  COMPENSATING  MAGNET  E0R  THE  XY-PLANE  SHOULD  BE  852.2  GAUSS- 
CENTIMETER-CUBED  WITH  THE  NORTH  P0LE  POINTING  1X5. X  DEGREES  FROM  +  X. 
(THE  MAGNET  SHOULD  RFAD  170.4  GAMMA  AT  ONE  METER.) 

THE  COMPENSATING  MAGNET  FOR  THF  Z-AXI S  SHOULD  BE  20.7  GAUSS- 
C  ENTI ME TER- CUBED  WITH  THE  NORTH  FOLE  POINTING  TOWARDS  -Z.  (THE  MAGNET 
SHOULD  READ  4.1  GAMMA  AT  ONE  METER.) 

THE  A  A  B  COEFFS.  FOR  THE  1 TH  HARMONIC  ARE  l 
.20710628574XE+02  .62554202405XE+03 

-.21 1 426879295E+03 


THE  Q! lADRUPOLE  MOMENTS  Q1  1  »Q22,Q33,Q12,Q1  3.023  ARE  — 

.91 38 0158447 3E +07  . 996620668906E+07  - . 1 9 1 042225338E+08 
.  1419X50589  I 1E  +  05  . 1 89 439835558E+05  . 9023 1 58 37020E  +  04 


THE  A  A  B  COEFES.  FOR  THE  2TH  HARMONIC  ARE: 

-  .95521  1 12XX9 1 F  +  07  .  1 09 3^ 3 1 40054E+05  -  .  2 39 076 1 034X 1 E  +  OX 

.52095229 1397E+04  .819X35X4977bF+04 


THF  A  A  B  COEFFS.  FOR 
-. 1 086X5709 727E +07 
1  23IE+10 

.44631X9A1324F+07 


THE  3TH  hARMONIC  ARE: 

.  7  347  516321  35E  +  08  .  26 1 b626 1 39  36E  +  07 

. 30X933172460F+06  .3939 1 4212069E+07 


.23785770 


F-3 


J  NAM 


NO 

8 

6# 

N  1 

S 

25# 

NH 

a 

3# 

I  R 

s 

0# 

I  PI 

a 

0# 

I  W 

s 

0# 

R  1 

s 

0.96E+02 

CV 

s 

0. 1E+01# 

PY 

SEND 

z 

0.0# 

ENTER  1  0R  0  T0  INDICATE  DATA  PRINT  0R  N0TI 
THE  M0N0P0LE  M0MENT  IS  --  15.233732 


(  DX#  DY#  DZ  )  =  827.69  -212.04  20.70 

CD  #02.01)  =  854.67  -  1  4.37  88.61 

THE  C0MPENSATING  MAGNET  F0R  THE  XY-PLANE  SHOULD  BE  854.4  GAUSS- 
CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  165.6  DEGREES  FROM  *X. 
(THE  MAGNET  SHOULD  READ  170.9  GAMMA  AT  ONE  METER.) 

THE  COMPENSATING  MAGNET  FOR  THE  Z-AXIS  SHOULD  BE  20.7  GAUSS- 
CENTIMETER-CUBED  WITH  THE  NORTH  POLE  POINTING  TOWARDS  -Z.  (THE  MAGNET 
SHOULD  READ  4.1  GAMMA  AT  ONE  METER.) 

THE  A  A  B  COEFFS.  FOR  THE  1 TH  HARMONIC  ARE l 
.206988 483703E+02  .827692992075E+03 

-.212041 7 207 26 E+ 03 

THF  OUADRUP0LE  MOMENTS  0 1  1 , 022# Q33# Q 1 2# 01  3# Q23  ARE  — 

.90775 1557 57 3E+07  . 990809608352E+07  - . 1 89856  I  1 6592E+08 
. 142413793441E+05  . 190259234406E+05  .90488 1 389053E+04 

THE  A  A  B  COEFFS.  FOR  THE  2TH  HARMONIC  ARE! 

-.949280582962E+07  . 1 098 46220200E+05  -. 2397679 39880E+06 

.52243351  355 4E-*  04  .  8  22226  4 1 9  797E+04 

THE  A  A  B  COEFFS.  FOR  THE  3TH  HARMONIC  AREl 

-. 109329743425E+07  . 7366378 47 1 4 1 E+08  .262663903488E+07  .23853972 

2966E+10 

•447595915074E+07  .  307 5045657 1 2E  +  06  . 3949097 10659E+07 

1  4. 47. 58. STOP 
♦  ♦READY. 


LOGOUT. 


CP  TIME  2.824 

PP  TIME  80.985 

CONNECT  TIME  0  HR  14  MIN  12  SEC 
T0TAL  C0ST  OF  SESS10N  -  $  3.72 

09/07/73  LOGGED  0UT  AT  14. 49. 51. < 

Not#  ft 

1.  The  file  BN3024  if  tho  binary  torsion  of  SA3024.  It  eonsiste  of  19  binary 
reoorda  (subprograms) .  The  laat  thra#  are  plotting  routinaf  and  ara  not  used  when 
executing  problaae  on  INTERCOM. 

2.  The  Information  typed  in  by  the  ueer  has  been  underlined. 
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II.  PROBLEM  SUBMITTED  TO  BATCH 


N 0L  INTERCOM 
TYPE  "LOGIN." 

L0GINC  S)  _ 

0  2  4  5 l33LA 


09/07/73  14.50.40.  BD/42/31 

C-  SETUP. GENERAL 


0 N  AT  14.51.17.  09/07/73 

♦♦GENERAL 

♦  ♦NEW  GR  0LD  FILE-  NEW/1  ECC02  4»TAPE(0N) 


♦  ♦READY.  _ 

1  I  ECC3ST#  P  1  #  T060.  CM060000.  55302435>024,LACKEY. 

2  ATTACH (ABC# N0LBIN) 

3C0PYN<O#DEE*  ABC) 

4RETURN<ABC) 

5 ATTACH (MHL. DAT024) 

6  REW1NDCMHL) 

7C0PYBE(MHL#DATO24) 

8  RETURN(MHL) 

9  ATTACH ( BN 3024.  BN 302 4) 

1 OL0AD( BN 3024) 

1  IDEE. 

1 2+WE0R 
1 4RFWI ND( ABC) 

1 5G0ULD 1  *  1 A» ABC 
1 ft+WEOR 

5490  6  25  3  1  1  1 

5500  9  ft . 00  1.000  0.000 

5510  1 

5  5?0  ft  25  3  0  1  0 

5530  94.00  1.000  0.000 

5  540  0 

5550  10  0  -5043  -4755  -3615  -1233  4384  12737 

5540  1259ft  4313  -1257  -3621  -4743  -5027  -4998  -4745 


5570  -3643  -3410  -3224 
5  5b0  -9026  -6612  -6144 
5590  -4727  -8155  -6604 
5400  72  -1404  -4606 

5410- 12544- 12064- 1 1 460- 


-3394  -3845  -4359 
-4754  -4206  -1169 
-9041  -6974  -b51 0 
-7269  -8504  -6971 
10946- 10779-10971- 


-4747  -4990 
27?  -1197 
- 72b7  -4836 
-9037- I  3025- 
11464-1 2044- 


17492 

-4345 

-5037 

-4247 

-1445 

12677 

12554 


Tape  prepared 
beforehand  in 
LOCAL  mode 


F-6 


5620-12883-13030-12926-12190  -9905  -3946  5692  12194  5952 

5630  -4064  -9930-12196-12910-13042-17035-16916-16423-15194 
5640-12819  -9618  -8009  -9665-12770-15201-16425-16920-17041 
5650-16906-16408-15151-12748  -9465  -7798  -9462-12745-15181 
5  660-16  41 6-1691  1-17037-21024-20924-20199-17884-12022  -21  10 
5670  4183  -2072-12092-17925-20192-20911-21036-20884-20568 

5680-20056-19474-18985-18775-18979-19477-20063-20545-20886 
5690-21034-25024-24970-24520-23278-20863-17702-15987-17628 
5700-20829-23299-24484-24970-25036-24817-24156-22743-20225 
5710-17136-15667-17203-20207-22712-24146-24815-25035 
5720  0  0  0  0  0  0 

TAPE(0?F)  _ 


Tape  prepared 
beforehand  In 
LOCAL  mode 


SAVE*PIIRGE<1ECC024?  ♦BATCH.*  QUEUES. 


♦  ♦SAVED  1ECC024 
1  4.58. 13.PURGE(1ECC024) 
TYPE  FILE  NAME-1  ECC024 


TYPE  PI  SP0  SI  TI0N- INPUT 
TYPE  FILE  NAME-END 


QUEUES  15.00.35.  1=  19.  0=  3.  P=«’  1*  C=  2. 

INPUT  =  19 

CBCGU81-5  ECAAG8Y -  3  HHJFI8B-2  SAFCS8N-2  DCCXX8Z-3  SAFCS8I -2 
BCAJH8E-2  HHJ1J74-2  HHJFI8A-2  AJFG084-3  SAFHF7 1 -2  IECC386-1 
I  CCBG8X- 4  I GBJE7T-2  HHJMV8M-2  HHJ1J8L-2  DBCJG8W-2  IAJFS83-5 
DCAEV8U-5 
0  UTPUT=  3 

BDASH60-0  I AJF03P-0  DAYFI 7G-0 

PUNCH  =  1 

BDASH80-0 

C0MM0N=  2 

SSSSSSU-0  SSSSSST-0 

CONTROL  PTS. 

A JFVD78-2  HHJFI 79-5  GRID68P-5  AJFG06Q-4  AJFXF54-2  GRIDF80-5 
I  AJF082- 5 
1 5.00. 35. STOP 
♦♦RFADY. 

LOGOUT . 


CP  TIMF  .949 

PP  TIME  144.517 

CCNNFCT  TIMF  0  HR  11  MIN 
TOTAL  COST  OF  SFSSION  =  J 
09/C7/73  LOGGED  OUT  AT 


2  SFC 
3.75 

5.01 . 42. < 


Note: 

1.  The  information  typed  in  by  the  user  has  been  underlined. 
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APPENDIX  G 

LISTING  OF  SA4024 


PROGRAM  DIPDAT (  I NPUT-6 5 .OUTPUT -65  .  TAPES- INPUT . TAP E6 -OUTPUT .  SA400018 

DAT024«65.TAPE7*DAT02STAFE99)  SA400020 

SA400030 

SA400040 

C  SATELLITE  DATA  PROGRAM  SA400050 

S A400060 
S A4000  TO 

C  This  program  GENERATES  AND  PLOTS  DATA  REPRESENTING  THE  NORMAL  COM-  SA400080 
C  PONENT  OF  THE  MAGNETIC  FIELD  FROM  A  SATELLITE.  THE  DATA  IS  ENTERED  SA400090 
C  IN  THE  FOLLOWING  ORDER  —  SA400100 

SA400110 

C  NO  -  THE  NUMBER  OF  GREAT  CIRCLES  OF  DATA.  (NO  IS  USUALLY  EVEN,  E.G.*  SA400I20 
C  N0»(Nl-l)/2.  THE  PROGRAM  STOPS  IF  NO-0.)  SA400130 

SA400140 

N1  -  THE  NUMBER  OF  DATA  POINTS  PER  GREAT  CIRCLE.  INI  IS  ALWAYS  ODD.  SA400150 
THE  FIRST  DATA  POINT  IS  THE  SAME  AS  THE  LAST  FOR  EACH  GREAT  CIR-SA400160 
LE.)  SA4001 70 

SA400180 

NH  -  THE  TOTAL  NUMBER  OF  DIFFERENT  HARMONICS  (DEGREES)  OF  MULTIPOLE  SA400190 
MAGNETS  TO  5E  CONSIDERED.  SA400200 

SA400210 

IP  -  DETERMINES  WHETHER  OR  NOT  THE  MAGNETIC  DATA  IS  TO  BE  PLOTTED.  SA400220 
(  I  P  =  0  MEANS  THAT  THE  DATA  WILL  NOT  BE  PLOTTED.)  SA400230 

SA400240 

R 1  -  THE  RADIUS  OE  THE  MEASUREMENT  SPHERE  IN  INCHES.  SA400250 

SA400260 

EG  -  THE  ERROR  (IN  GAMMAS)  TO  BE  RANDOMLY  INSERTED  INTO  THE  DATA  TO  SA400270 
REPRESENT  INSTRUMENTATION  INACCURACIES.  SA400280 

5A400290 

EA  -  THE  ERROR  (IN  DEGREES)  TO  BE  RANDOMLY  INSERTED  INTO  THE  DATA  TO  SA400300 
REPRESENT  MEASUREMENT  POSITION  ERRORS.  SA400310 

SA400320 

ED  -  THE  CONSTANT  ERROR  (IN  GAMMAS)  TO  BE  INSERTED  INTO  THE  DATA.  SA400330 
(THIS  WILL  BE  ANALYZED  AS  MONOPOLE  MOMENT.)  SA400340 

SA400350 

PY  -  THE  SCALE  FACTOR  ( GAMMA S/ 1 NCH )  FOR  THE  Y-AXIS  IF  THE  DATA  IS  TO  SA400360 
BE  PLOTTED.  (IF  PY=0.0  A  FACTOR  WILL  BE  COMPUTED  FROM  THE  DATA. ) SA400370 

SA400380 

F9  -  THE  FORMAT  FOR  READING  AND  PRINTING  THE  SPHERICAL  COEFFICIENTS  SA400390 
A ( I )  ANO  8(1).  SA400400 

SA4004IO 

SA400420 

SA400430 

C  DO  **  N I » 1  *  NH  SA400440 

SA400450 

C  NN  -  THE  HARMONIC  NUMBER  (DEGREE)  OF  THE  MULTIPOLE  DATA  BEING  READ  SA400460 
C  IN.  ( NN« 1  FOR  DIPOLES.  2  FOR  QUADRUPOLES.  ETC.)  SA400470 

SA400480 


SATELLITE  DATA  PROGRAM 


G-J 


KJ  KJ  KJ  KJ  \J  V  KJ  V  KJ 
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C 

C 


c 


c 


NM  -  THE  NUMBER  OF  MuLTIPCi.ES  WITH  HARMONIC  NUMBER  NN.  SA400490 

SA400500 

SA400510 

00  *•  NJ*1 ,NM  SA400520 

SA400530 

P  -  THE  POSITION  VECTOR  (IN  INCHES)  OF  THE  MULTIPOLE  IN  RECTANG-  SA400540 
ULAR  COORDINATES.  SA400550 

SA400S60 

All)  -  THE  SPHERICAL  COEFFICIENTS  FOR  THE  MULTIPOLE  OF  DEGREE  NN  SA400570 
WHERE  1*1 ,2.--,NN*l.  (1-1  IS  THE  ORDER  OF  THE  ITH  COEFF.)  SA400580 

SA400590 

B ( I )  -  THE  SPHERICAL  COEFFICIENTS  FOR  THE  MULTIPOLE  OF  DEGREE  NN  SA400600 


WHERE  1*1*2 »--,NN.  (I  IS  THE  ORDER  OF  THE  ITH  COEFF.)  SA400610 

SA400620 

•♦NOTE**  THE  COEFFICIENTS  FOR  A  DIPOLE  OF  MOMENT  (DX.DY.DZ)  ARE  SA400630 
AS  FOLLOWS  —  SA400640 

A ( 1 ) »DZ  *  A ( 2 ) *DX  *  AND  B(1)*DY.  SA400650 

SA400660 

**  CONTINUE  SA400670 

SA400680 

SA400690 

********* . **###*****#**#**#******SA400700 

DIMENSION  F( 1000) *P(3I *A( 11 ) ,B( 10) *R(3) .DMn ) ,F1( 3) ,F9(7)  SA400710 

+  .A1 < 33)  ,A2< 1000)  SA400720 

NAMELIST/NAM/N0.N1,NH,IP,R1,EG.EA.ED,PY  SA400730 

DATA  PI /3. 14159265358979/  SA400740 


I  PT»0 

10  REAO (5*01)  N0.N1.NH.IP 

I F ( IPT.EQ.O.AND.IP.NE.O)  CALL  CALCM1 (0, 10H024  LACKEY, -1C.) 

IF(NO.EQ.O)  GO  TO  70 

IF(IP.NE.O)  IPT-1 

READ (5.02)  Rl.EG.EA.EO.PY 

READ (5.04)  F9 

WR I TE ( 6 ,NAM ) 

WRITEI6.14)  F9 
D1 *P I /FLOAT ( NO ) 

D2«2.*PI/FL0AT(N1-1  ) 

IZ-1 

DO  50  N I  *  1 ,NH 
READI5.01)  NN.NM 
WR I TE ( 6 .03 )  NN.NM 
NN1-NN+1 
DO  40  NJ-l.NM 
READ! 5.02)  P 

READ! 5 ,F9)  (All), I *1 »NN1 ) 

READ! 5  »F9)  (  B  (  I )  ,  I «1 .NN ) 

WR I TE ( 6 ,02 )  P 
WRITEI6.F9)  ( A ( 1 ) » I *1 ,NN1 ) 

WR  I  TE  (  6  .  F9  )  (BID. 1*1. NN) 

I F ( NJ. EO.  1 . AND. I Z.EQ. 1 )  CALL  SUM ( 0 . »P  ,0  .  »P .DM) 

IFINN.NE.l )  GO  TO  20 
DM ( 1 ) *DM ( 1 ) +A ( 2 ) 

DM ( 2 ) =DM ( 2  )  +B ( 1 ) 

DM ( 3 ) *DM ( 3 ) +A ( 1 ) 

20  DO  30  K*1 ,N0 

I F ( IZ.EO.l )  A1(K) -FLOAT (K-l )*D1+(RANF(  1.1 ) - . 5 ) *2 . *EA*PI / 180. 
S1*S!N< A1(K) ) 

Cl-COS(AKK)  ) 

DO  30  L *  1 , N 1 
KL=L+ ( K-l ) *N1 


SA400750 

SA400760 

SA400770 

SA400780 

SA400790 

SA400800 

SA400810 

SA4OO02O 

SA400830 

SA400840 

SA400850 

SA400860 

SA400870 

SA400880 

SA400890 

SA400900 

SA400910 

5A400920 

SA400930 

SA400940 

SA400950 

SA400960 

SA400970 

SA400980 

SA400990 

SA401000 

SA401010 

SA401020 

SA401030 

SA401040 

SA401050 

SA401060 

SA401070 

SA401080 


G-2 
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IF< IZ.EQ.l >  A2  <  )•  FLOAT  <  L-  1  )  *D2+ <  RAflF  <  1  .  1  ) -.  5  )  *2  ,*EA*PI /180. 

S2*SIN(  A 2  ( tC L  ) ) 

C2 “COS ( A2 ( KL ) I 
IFlI2.EO.il  F(KL)“0. 

Rill  *R1*C1*S2 
R(2)-R1*S1*S2 
R( 3  I -R  1  *C2 

CALL  AMPFLDiR.P.NN.A.B.Fl ) 

30  F ( KL ) »F ( KL l+DOT ( F 1 *R I /SORT  I  DOT ( R  »R )  ) 

IZ-0 

40  CONTINUE 
50  CONTINUE 
N3“N0*N1 
DO  60  1*1. N3 

60  F (  1 1  *F (  I  )+ED*l.E-5+(RANF( 1.1 ) - . 5  I *2 • E-5*EG 
CALL  PRNPUFtF.NO.Nl  ) 

CALL  SPCOORIDM.Fl  ) 

WR I TE ( 6 .06 )  DM. FI 

IF(IP.NE.O)  CALL  DATPLT < NO .N1 . F , P Y ) 

GO  TO  10 

70  IF(IPT.NE.O)  CALL  CALCM1 ( 0 . 10H024  LACKEY, +10.) 

STOP 

01  FORMAT (1415) 

02  FORMAT ( 9F8 .4 ) 

03  FORMAT ( 48H1P0S I T ION  VECTOR  AND  COEFFICIENTS  FOR  NN  (  NM  *  ,213, 
+  7H  ARE  — ) 

04  FORMAT ( 7A 1 0 ) 

06  FORMAT ( 20H1ACTUAL  MOMENT  IS  — / 3F20 . 1 2 /3F20. 1 2 ) 

14  FORMAT ( 6H0F9  «  .7A10) 

END 

SUBROUTINE  AMPFLD ! R ,P,N , A .8 ,F  ) 

DIMENSION  R(3) . P  <  3 ) • A ( 1 1 ) »B  1 1 0  )  *  F ( 3  )  »U(3) ,V(3) ,W( 3) 

DATA  PI/3.14159265358979/ 

CALL  SUM (l.,R«-l.«P»U) 

CALL  SPCOOR <  U  »  V  ) 

R1*V( 11*2.54 
IFIRl.NE.O.)  GO  TO  10 
PRINT  01 
RETURN 

10  Ol«V(2)*PI/180. 

02«V(3)*PI/180. 

S1-SINI01)  S  S2  =  S I N  <  02 ) 

C1*COS(01)  S  C2=C0S<0 2) 

U(1)*C1«S2  J  U ( 2 ) *S1*S2  5  U(3)=C2 
V(1)«C1*C2  S  V<  2 ) *S1*C2  S  V  <  3  >  =-S2 
W(l)«- SI  S  W( 2 ) “Cl  S  W ( 3 ) *0 . 

H1»H2«H3«0. 

NN-N+1 

DO  30  MM*1,NN 
M*MM-1 

PI “FLOAT ( M ) *01 
SM1*SIN(P1)  S  CM1 =C0S ( PI ) 

P1«SPNM(N,M,C2) 

P2*SPNM(N,M+1,C2) 

P3«P4«0.  S  CP“SQRT(FL0AT(N*(N+l))/2.) 

IF(M.EO.O)  GO  TO  20 

P4-FL0ATI (N-M+l ) *(N-M+2 ) ) *PNM ( N+l ,M-1 ,C2 )+PNM(N+l ,M+1 ,C2 ) 

P4* . 5* SORT ( 2 , *ANF ( N-M ) /ANF ( N+M ) )*P4 
P3«C2*P4  S  CP  =  SQRT(FLOAT( (N-M)*(N+M+1  ) ) ) 


SA401090 
SA401100 
SA401110 
SA401120 
SA401130 
SA401140 
SA401150 
SA401160 
SA401170 
SA401180 
SA401190 
SA401200 
SA401210 
SA401220 
SA401230 
SA401240 
SA401250 
SA401260 
SA401270 
SA401280 
SA40 1 Z90 
SA401300 
SA401310 
SA401320 
SA401330 
SA401340 
SA401350 
SA401360 
SA401370 
SA401380 
SA401390 
SA401400 
SA401410 
SA401420 
SA401430 
SA401440 
SA401450 
SA401460 
SA401470 
SA401480 
SA401490 
SA401500 
SA401510 
SA401520 
SA401530 
SA401540 
SA401550 
SA401560 
SA40 1570 
SA401580 
SA401590 
SA401600 
SA401610 
SA401620 
SA401630 
SA401640 
SA401650 
SA401660 
SA401670 
SA401680 
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20  Bl-0. 

IF(M.GT.O)  Bl-B(M) 

A1-A(MM)»CM1+B1*$M1 
HI »H1*A1*P1 
H2-H2aA1»(CP*P2-P3) 

H3-H3-MA(MMi*SMl-Bl*CMl)*P4 
30  CONTINUE 
Rl-Rl**(N+2) 

HI* FLOAT (N+1)*H1/R1  *  H2-H2/R1  S  H3-H3/R1 
CALL  SUM (HI #U»H2*V*F)  *  CALL  SUM <1 . .F ,H3 .K.F ) 

RETURN 

01  FORMAT ( 50H0F I  ELD  VECTOR  CANNOT  BE  COMPUTFD  AT  POI  E  POSITION.//) 
END 

FUNCTION  SPNM(N.M.X) 

SPNM*PNM(N.M#X ) 

1FIM.EQ.0.OR.M.GT.N)  RETURN 
SPNM-SORT ( 2 . *ANF ( N-M ) /ANF ( N+M ) ) #SPNM 
RETURN 
END 

FUNCTION  PNM(N.M.X) 

PNM-0. 

IF(M.GT.N)  RETURN 

IF  I ( ABS( l.-ABS(X) ) ) .GT.l.E-9)  GO  TO  20 

IF 1M.NE.0)  RETURN 

PNMir-1. 

IF<X.GT.O..OR.N.EQ.lNT<FLOAT<N)/2.+.l)»2l  PNM-1. 

RETURN 

20  CNM* ( 2  »**N ) *ANF ( N ) *ANF ( N-M ) 

PNM-1. 

IF(M.NE.O)  PNM-SQRTU.-X*XI**M 

CNM-ANFI2»N)*PNM/CNM 

PNM-1. 

IF(M.NE.N)  PNM-X** ( N-M ) 

IF ( N-M.LE. 1 )  GO  TO  40 
PRD1-1 • 

NT-JN-MI/2 

DO  30  -I-l.NT 

AN  1- FLOAT ( N-M- 2* I +2 ) 

AN2-FLOAT  <  2* I ) 

AN 3 -FLOAT ( 2*N-2 » I  +1 ) 

PRD1--PRD1»AN1*(,\N1-1  )/(AN2*AN3) 

NE-N-M-2*I 

AN1-1. 

IF(NE.GT.O)  AN1 «X**NE 
PNM-PNM+PRD1*AN1 
30  CONTINUE 
40  PNM«CNM*PNM 
RETURN 
END 

FUNCTION  ANFIN) 

DOUBLE  PRECISION  AN 
ANF-1. 

AN-1. DO 

IF(N.LT.O)  PRINT  01 
IF ( N.LT. 2  )  RETURN 
DO  10  I -2 *N 

10  AN-AN*DBLE ( FLOAT ( I ) ) 


SA401690 
SA401700 
SA401710 
SA401720 
SA401730 
;A401740 
SA4C1730 
SA401760 
SA401770 
SA401760 
SA401790 
SA401800 
SA401B10 
SA401820 
SA401830 
SA401840 
SA401850 
SA401860 
SA401870 
S/401880 
S/,401890 
SA401900 
SA401910 
SA401920 
SA401930 
SA401940 
SA401950 
SA401960 
SA401970 
SA401980 
SA401990 
SA402000 
SA402010 
SA402020 
SA402030 
SA402040 
SA4020S0 
SA402060 
SA402070 
SA402080 
SA402090 
SA402100 
SA402110 
SA402120 
SA4021 30 
SA402140 
SA402150 
SA402160 
SA402170 
SA402180 
SA402190 
SA402200 
SA402210 
SA402220 
SA4022  30 
SA402240 
SA402250 
SA402260 
SA402270 
SA402280 
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ANF-SNGL(AN) 

RETURN 

01  FORMAT ( 37H1FACTOR IAL  INTEGER  IS  LESS  THAN  ZERO.//) 

END 

SUBROUTINE  SPCOOR(D.R) 

DIMENSION  DI3)iR(]l 
DATA  PI/3.14159265358979/ 

R ( 1 ) "SORT ( DOT ( D  »D) ) 

R ( 2 ) -0. 

ROI-O. 

IF ( R ( 1 ) .EO.O. )  RETURN 

IF (D( 1 ) *»2+D  <  2 ) *#2 .NE.0. )  R ( 2 ) -ATAN2 f D ( 2 ) »D( 1 ) ) *180. /PI 
R(3)«ATAN2( SORT (D(l)**2+0 (21**2) .D( 3 ) ) *180. /PI 
RETURN 
END 

SUBROUTINE  SUM(A.X,B»Y.Z ) 

DIMENSION  X(3) * VI 3 ) .2(3) 

DO  10  >1.3 
10  Z< I ) -A*X  ( I )+B*Y(  I  ) 

RETURN 

END 

FUNCTION  DOT(X.Y) 

DIMENSION  X ( 3 ) * Y( 3 ) 

DOT-X(l  )*Y(1  )+X(2)*Y<2J+X(3)*Y<3) 

RETURN 

END 

SUBROUTINE  PRNPUF ( F.N0.N1 ) 

DIMENSION  F(800)*F1(33) *  1 F ( 800 ) 

N3-N0*N1 

ICS-10 

ICZ-0 

II-O 

DO  20  K0-1.N0 
KS* 1+ ( KO-1 ) *N1 
KE-KS+N1-1 
DO  10  I-1.N1 
1 1  *  I  1  +  1 

FI ( I ) -F 1 1 1 ) *1 . E5 
10  I F C II)*INT(F(II )*1 .E+6 ) 

WR I TE ( 6 .0 1 )  KO 

20  WR I TE  t  6 .02 )  ( F 1 < I ) . I » 1 . N1 ) 

WRITE (7,03 )  ICS.ICZ.I I F ( I ) ,1-1 ,N3) 

01  FORMAT!  UHOCURVE  NO.  ,12) 

02  FORMAT ( 1H  ,8F8.1) 

03  FORMAT (916) 

RETURN 

END 

SUBROUTINE  DATPLT ( N0.N1 ,F , YD  I  ST ) 

DIMENSION  F( 1000) ,F1( 33) ,F2 (73  ) ,X(  33)  . XI (73) »C(1  ),P(1  ).CH(16) 
DATA  PI/3. 19159265358979/ 

DATA  CH/1H1,1H2,1H3,1H4.1H5,1H6,1H7,1H8,1H9,2H10»2H11,2H12,2H13, 
+  2H14, 2H1 5 , 2H1 6/ 

N3-N0*N1 

CALL  YSCALE(N3,F,YDIST,YMAX,YMIN) 

DX- 360. /FLOAT ( N 1 — 1 ) 


SA402290 

SA402300 

SA402310 

SA402320 

SA402330 

SA402340 

SA402350 

SA402360 

SA402370 

SA4023B0 

SA402390 

SA402400 

SA402410 

SA402420 

SA402430 

SA402440 

SA402450 

SA402460 

SA402470 

SA402480 

SA402490 

SA402500 

SA402510 

SA402520 

SA402530 

SA402540 

SA402550 

SA402560 

SA402570 

SA402580 

SA402590 

SA402600 

SA402610 

SA402620 

SA402630 

SA402640 

SA402650 

SA402660 

SA402670 

SA402680 

SA402690 

SA402700 

SA402710 

SA402720 

SA402730 

SA402740 

SA402750 

SA402760 

SA402770 

SA402780 

5A402790 

SA402800 

SA402810 

SA402820 

SA402830 

SA402840 

SA402850 

SA402860 

SA402870 

SA402880 
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FI < 1 ) -FI «  2  » - YMAX  $  X(l)-0.  $  X<2)-360. 

CALL  CALCH1 (2.X.F1.0.0.  .  360. . YMIN , YMAX ,6. ,7. .TITLE.O. 

♦  20HCOLAT I TUDE  (DEGREES)  ,-20. 30HN0RMAL  MAGNETIC  FIELD  (GAMMAS), 

♦  30,0,  ,  16  ) 

FI ( 2 ) ■ YM I N  *  X ( 1 )-X(2)-360* 

CALL  CALCM1 (-2.X.F1 ,0) 

FI ( 1 ) -FI ( 2 ) -0.  $  X ( 1 ) -360.  i  X(2)-0. 

IFIYMAX.GT. 0.0. AND.YMIN.LT. 0.0)  CALL  CALCM1 (-2 ,X,F1 ,0) 

DO  10  I-l.Nl 
10  X< I ) -DX*FLOAT ( 1-1 ) 

DO  20  1-1.73 
20  XI ( I >-5.*FL0AT( 1-1 ) 

IJ-0 

DO  50  I-l.NO 
DO  30  J- 1 »N 1 
I J-I J+l 

30  FI  ( J ) -F (  I  JIM.E+5 

CALL  FNCT0N(F1 ,Nl-l ,C.C0.P.N2 .DEV) 

DO  40  N-1.N2 
EN-N 

DO  40  J* 1 »  73 
XX-X1(J)»PI/180. 

IF(N.EO.l)  F2(J)-C0 
40  F2< J)«F2< J)*C(N)#SIN(EN*XX+P(N» ) 

CALL  CALCM1 (-73. XI ,F2 ,0 ) 

DO  50  J-1.N1 
NC-l+I/10 

CALL  SYMBL4(X( J)/60.» ( FI ( J )-YM IN ) /YDI ST , .08 .CM ( I ) .0..NC) 

50  CONTINUE 
RETURN 
END 

SUBROUTINE  FNCTON ( F .NSCANS.C , CO. PHI ,N2 .DEV ) 

DIMENSION  F ( 1 ) ,G( 33 ) ,C( 1 ) .PHI  (1) 

DATA  PI/3.14159265358979/ 

DX-2.*P I /FLOAT (NSCANS) 

NE-NSCANS/2+1 

C0-0. 

DO  10  J«1 .NSCANS 
10  CO-CO+F ( J ) /FLOAT ( NSCANS ) 

DO  30  N-l.NE 

EN-N 

Sl-0. 

Cl-0. 

X--DX 

DO  20  J-l. NSCANS 
X-X+DX 

Sl-Sl+I l./PI )*F(J)*SIN(EN*X)«DX 
20  Cl-Cl+( l./PI )»F(J)*COS(EN*X)*DX 
C ( N ) »SORT (S1**2+C1**2  ) 

I F ( (FLOAT! N) ). EQ. ( FLOAT ( NSCANS ) /2 . ) )  C(N)-C(N)/2. 

PHI (N)-O.O 

30  IF((Sl»*2+Cl*»2).NE.O.)  PHI (N ) =ATAN2(C1 ,S1 > 

DO  50  N-l.NE 

EN-N 

X--DX 

DEV1-0. 

DO  40  J-l. NSCANS 
X-X+DX 

IF(N.EO.l)  G ( J ) -CO 


SA402890 
SA402900 
SA402910 
SA402920 
SA402930 
SA402940 
SA402950 
SA402960 
SA402970 
SA402980 
SA402990 
SA403000 
SA403010 
SA403020 
SA403030 
SA403040 
SA403050 
SA403060 
SA403070 
SA403080 
SA403090 
SA403100 
SA4031 10 
SA403120 
SA403130 
SA403140 
SA403150 
SA403160 
SA403170 
SA403180 
SA403190 
SA403200 
SA403210 
SA403220 
SA403230 
SA403240 
SA403250 
SA403260 
SA403270 
SA403280 
SA403290 
SA403300 
SA403310 
SA403320 
SA403330 
SA403340 
SA403350 
SA403360 
SA403370 
SA403380 
SA403390 
SA403400 
SA403410 
SA403420 
SA403430 
SA403440 
SA403450 
SA403460 
SA403470 
SA403480 
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G<  J  1  -G  I  Jt-»-C<Nl*StN<EN*X+PHI  (N)  I 
40  IFIABSIGI Jl-FC Jj»  .GT.DEV1 >  DE  VI «  ABS  I G  (  J  )  -F  (  J  )  > 
IF(N.EQ.l)  DEV-DEV1 
JF(N.EO.l)  N2-1 
I F ( DEV  1 «  LT  «DEV I  N2-N 
I F ( DEVI #LT #DEV )  DEV-DEV1 
50  CONTINUE 
RETURN 
END 

SUBROUTINE  YSCALE ( N,F , YD , YX , YM ) 

DIMENSION  F ( 800 ) 

PP-F (  1 ) 

PN-PP 

DO  10  I-l.N 
IF(Fm.GT.PP)  PP-F(I) 

IFIFI I l.LT.PN)  PN«F(I) 

10  CONTINUE 
PP»PP*1 .E+5 
PN-PN*l.E+5 
P-PP-PN 
SN-0. 

IFIPP.GT.O.)  SN-1. 

IFIYD.NE.O.)  GO  TO  50 

DO  20  1-1,21 

FA.( l.E-9I*( 10.**  I  ) 

FA  1 -FA*  «  1 

IFIP/FA.GE.1. )  GO  TO  20 
GO  TO  30 
20  CONTINUE 
30  YD-5 . *F A 1 

YX-FLOAT ( INT(PP/YD+SN))*YD 
YM- YX-7  »  *YD 

CN-4. 

DO  40  1-1,3 
CN-CN*, 5 
YD1 -CN*FA 1 

YX 1 -FLOAT ( INT (PP/YD1+SN) )*YD1 
YM1«YX1-7.*YD1 

I F ( <7.*YD1-P) .LT.O.O.OR.YXl.LT.PP.OR.YMl .GT.PN)  RETURN 
YD-YD1 
YX  « YX 1 
YM-YM1 
40  CONTINUE 

50  YX-FLOAT ( INT (PP/YD+SN) )*YD 
YM-YX-7  »  *YD 
RETURN 
END 


SA40  3490 
SA403500 
SA403510 
SA403520 
SA403530 
SA403540 
SA403550 
SA403560 
SA403570 
SA403580 
SA403590 
SA403600 
SA403610 
SA4O3620 
SA403630 
SA403640 
SA403650 
SA403660 
SA403670 
SA403680 
SA403690 
SA403700 
SA403710 
SA403720 
SA403730 
SA403740 
SA403750 
SA403760 
SA403770 
SA403780 
SA403790 
SA403800 
SA403810 
SA403820 
SA403830 
SA403840 
SA403850 
SA403860 
SA403870 
SA403880 
SA403890 
SA403900 
SA403910 
SA403920 
SA403930 
SA403940 
SA403950 
SA403960 
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SiHTLC  P.TPI^r  FP?.  CA4C24 


i.  Pima:  eeottsd  c*r  e:tep.t::  (ter-sh/iTTE-  syste:) 


NOL  INTERCOM 
TYPF  "LCflN." 
LPC1N. 


TYPF  USF.RNAME/PASSKORD/TTY  N0.  (0UTSIDF  NCL  TTY=88> 
02  4533LACK/BI^BBB/4 


09/10/73  1S.15.2S.  3D/ 42/35 

C-  SFTUF. FORTRAN 

0 N  AT  15.  12. 38.  09/10/73 

**FPRTRAN 

*  *NFl*.'  PR  OLD  FILF-  ATTACH  (BN  402  4,  BN  4024) 

1  S. 12.56 .ATTACH ( RN 402 4. ON 402 4) 

*  *RFADY • 

i<  FV'I  ND(  BN 4024)  *COPYBR(  BN4024j  FI  L*  9  )  *  RE T>  IRN  (  BN 4024) 


* *KFADY  . 

FIL. 

6  2  S  1  0 

96.00  1.000  0.200  25.00 

<  1H  j  7  F  1 0 «  4) 


«■  NAM 


NO  =  6  > 


N  1 

~ 

25 1 

NH 

= 

\. 

I  P 

= 

0, 

R  1 

s 

0.9AE+02. 

f  r 

= 

0.TF+01* 

FA 

= 

0.2E+00* 

FD 

= 

0.25F+G2. 

P  Y 

=  - 

0.0. 

<'FND 

F  9  = 

(  1H 

>  7F.  1  0. 4) 

1  3 


POSITION  VECTOR  AND  COEFFICIENTS  FCR  NN  l  NM  *  1 

39.00  0.000  0.000 

+.0000F+00+.3100E+05 
+  .  OGOOF+OO 

39.0000  0.0000  0.0000 

0.  .  3 1  00E+05 

0  • 

-21.00  3A.373  0.000 

♦  .  OOOOE+OO-  «  1500E+05 
+.2596F+0S 


2  1.0000  3 A • 37 30  0.0000 

c  .  -. isocr+es 

.2590  F  +  05 

-21.00  -3ft. 37 3  0.000 

+ »  DC  COF  +  QO- . 1500E+05 
- . 259BF+C5 


3  ARE 


H-2 


CVJ  o 


1.0000-36.3730  0.0000 

.  - • 1 500E+05 

- » 2598E  +  05 


CURVE  NO. 
-504.3 
431.3 
-386.3 
-503.8 

1 

-475.6 

-125.8 

-341.0 

-381.5 

-382.2 

-322.6 

-  123. 3 
-476.4 
-339.4 

438.5 

-502.8 

-386.6 

1273.8 

-499.8 

-436.0 

1749.2 

-476.5 

-476.8 

1259.7 

-436.6 

-499.1 

CURVE  NO. 
-502.8 
-26.8 
-83.8 
-503.8 

2 

-  481. 3 
-272.8 
235.4 

-41  4.  6 
-415.6 
407.3 

-275.5 

-480.7 

239.5 

-20.8 
-504.2 
—  80.6 

281.0 

-497.6 

-329.0 

427.2 

-451.0 

-450.5 

280.3 
-328.7 
-497.  1 

CURVE  NO. 
-502.5 
-348. 4 
405.3 
-504.3 

3 

-487.8 

-406.6 

1389.2 

-454.5 
-455.  4 
2019.5 

-406.6 

-486.3 

1  395.2 

-348.0 
-503.  1 
393.6 

-296.8 
-492.7 
-193.  1 

-278.0 

-419.0 

-419.7 

-297.  1 
-190.5 
-491.0 

CURVE  NO. 
-503.5 
-77.  1 
-74.8 
-503.7 

4 

-  49 1 . 6 
-320.2 
253.  5 

-442.4 
-442.6 
420.  1 

-319.4 

-492.0 

253.7 

-81.9 
-504.  1 
-74.5 

238.  1 
-490.6 
-318.2 

399.  1 
-440.9 
-441.7 

233.5 
-315.  1 
-491.1 

CURVE  NO. 
-502.5 
390.  7 
-347.5 
-503.4 

5 

-492.5 
-  192.5 
-298. 5 

-420.0 

-419.2 

-277.5 

-188.4 

-491.1 

-298.0 

397.7 

-503.6 

-347.8 

1389.0 

-488.4 

-406.3 

2018.3 

-456.9 

-454.5 

1 392.8 
-405.6 
—  488 . 6 

CURVE  NO. 
-502.4 
-82.9 
-22.6 
-503.6 

6 

-497.0 
-329.9 
286.  3 

-452.0 
-448. 4 
433.2 

-327.9 

-497.0 

279.6 

—  86*4 
-503.7 
-20.7 

229.7 

-481.8 

-271.3 

401.3 

-415.6 

-414.7 

237.  1 
-274.3 
-481.6 

ACTUAL  MOMENT  IS  -- 

1000.000000000000  0.000000000000  0.000000000000 

1000.000000000000  0.000000000000  90.000000000000 
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0 


0 


0 


0 


1  5.20.24.  ST0P 
♦♦READY. 

LOGOUT. 

CP  TIME  4.233  % 

PP  TIME  56.828  ^ 

CONNECT  TIME  0  HR  8  MIN  II  SEC 
TOTAL  COST  OF  SESSION  =  S  2.60 
09/10/73  LOGGED  OUT  AT  15. 20. 36. < 

N&fifi: 

1.  The  file  BN4Q24  la  the  binary  version  of  SA4024.  It  oonsiste  of  12  binary 
records  (subprograms).  The  laat  three  are  plotting  routines  and  are  not  used  when 
executing  problems  on  INTERCOM. 

2.  The  information  typed  In  fay  the  user  has  been  underlined. 


APPENDIX  H  (00 NT.) 
II.  LISTING  OF  DAT024 


10  0  -5043 

12596  4313  -1257 

-3863  -3410  -3226 
-5028  -4812  -4146 
-2727  -4155  -4806 
4072  2395  -806 

-4544  -4066  -3480 
-4883  -5030  -4926 
3935  -1930  -4196 
-819  2381  3990 

-4906  -4408  -3151 
-4416  -4911  -5037 
20183  13927  3907 

-4056  -3474  -2985 
-5034  -5024  -4970 
-829  -3299  -4484 
2863  4332  2796 


-4755  -3815  -1233 
-3821  -4763  -5027 
-3394  -3865  -4359 
-2754  -208  2810 

-5041  -4976  -4510 
-3289  -4504  -4971 
-2968  -2779  -2971 
-4190  -1905  4053 

-4910  -5042  -5035 
2334  -770  -3201 

-748  2534  4201 

-5024  -4924  -4199 
-1925  -4192  -4911 
-2775  -2979  -3477 
-4520  -3278  -863 

-4970  -5036  -4817 
-207  -2712  -4146 


4384  12737  17492 
-4998  -4765  -4365 
-4767  -4990  -5037 
4272  2802  -267 

-3287  -838  2354 

-5037  -5025  -4877 
-3484  -4066  -4554 
13892  20194  13952 
-4916  -4423  -3194 
-4425  -4920  -5041 
2537  -745  -3181 

-1884  3977  13889 

-5036  -4884  -4568 
-4063  -4545  -4886 
2297  4012  2371 

-4156  -2743  -225 

-4815  -5035 


1.  The  data  la  stored  In  DAT024  in  a  way  that  allows  the  file  to  be  read  in  a 
(9F6.1)  format. 

2.  The  first  two  data  points  on  the  first  line  are  values  representing  the 
calibration  and  zero  readings ,  CS  and  CZ.  The  value  of  the  calibration  signal 
CV  should  be  set  to  1.0  when  using  data  generated  from  SA4024. 
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III.  PROBLEM  SUBMITTED  TO  BATCH 


N0L  INTFRC0M 
TYPE  "L0OIN." 

L0GI  N(  S) 

0  24533LACK/MBBB/4 


09/11/73  09.43.56.  BC/ 42/34 

C-  SETUP. OENFRAL 

0  N  AT  09.44.23.  09/1  1/73 

♦♦GENERAL 

♦  ♦NEW  0R  0LD  FILE-  NEW/I ECC024^ TAPE< ON) 
♦ ♦RFADY • 


1  IECC4ST.P1#  T200.  CM 06 0000. 55302435#  02 4. LACKEY • 

2  ATTACH ( A8C.N0L9I N) 

3C0PYN(O. DEF# ABC) 

4RETURN(ABC) 

5  ATTACH  <  BN  4024.  BN 4024) 

6RFWIND<BN4024) 

7  C0PYBF  (  BN4024.  CBA) 

8  RE TURN <  BN 4024) 

9  L0AD<  CBA) 

1 ODEF. 

1 1 ♦ WF0R 
1 2RFWINDC  ABC) 

1  3G0ULD1,  1  4.  ABC 
I 4+WF0R 

6  100  6  25  1  1 

6110  96.00  1.000  0.200  25.00  0.000 

6  120  (  1H  .7E10.4) 

6130  1  3 

6140  39.00  0.000  0.000 

6150  +.0000F+00+.31OOF+C5 

6160  ♦ . COOOF+OO 

6170  -21.00  36.373  0.000 

6160  +.0000F+00-. 1500F+05 
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Tape  prepared 
beforehand  In 
LOCAL  mode 


6  190 
6  200 
6210 
6  220 
6230 
6  240 
6250 
6  260 
6270 
6260 
6290 
6  300 
6310 
6  320 
6  330 
6  340 
6  350 
6  360 
6  370 
6  360 
6  390 
6  400 
6410 
6  420 
6  430 
6  440 
6  450 
6  460 
6  470 
6  480 
6  490 
6  500 
6510 
6  520 
6  530 
6  540 
6550 
6560 
6  570 
6  580 
6590 
6  600 
6610 
6  620 
6  630 
♦  16 
6640 
6650 
6660 
6670 
6  680 
6690 
6700 
+  00 


♦ • 2598E+05 

-21.00  -36.373  0.000 

♦ . 0000E+00- « 1500E+05 
-.2598E+05 

6  25  1  I 

96.00  0.000  0.000  0.000  0.000 

(1H  «  7E 1 0. 4) 

1  1 

0.000  0.000  0.000 

+.0000E+00+. 1000E+04 
+.0000E+00 

6  25  1  1 

96.00  0.000  0.000  0.000  0.000 

C 1H  . 7E10. 4) 

2  1 

0.000  0.000  0.000 

-•9472E+07+. 0000E+00- .2241E+06 
♦ . 0000E+00+ . OOOOE+OO 
6  25  1  1 

96.00  0.000  0.000  0.000  0.000 

( 1H  . 7E1 0. 4) 

3  1 

0.000  0.000  0.000 

♦  • 0000E+00* . 6837E+08  +  • Q000E+00+. 2  34 1 E+ 1 0 


Tape  prepared 
beforehand  in 
LOCAL  Mode 


+.00O0E+0O+.0000E+00+. OOOOE+OO 
6  25  1  1 

96.00  0.000  0.000  0.000  0.000 

(1H  *  7E1 0. 4) 

4  1 

0.000  0.000  0.000 

+  .  15  45E+12+.0000E+00+. 1 406E+ 1 1 ♦. OOOOE+OO- .  1 860E+ 1 1 
+.0000E+00+ . OOOOE+OO* • OOOOE+OO*. OOOOE+OO 
6  25  1  1 

96.00  0.000  0.000  0.000  0.000 

(1H  «  7E1 0. 4) 

5  1 

0.000  0.000  0.000 

+  . OOOOE+OO-. 2 180E+ 13+. OOOOE  +  OO-. 281 2E+14+.  OOOOE+OO-. 31 58E+ 13 
+.0000E+00+. 0000E+00+. OOOOE+OO+.OOOOE+OO*. OOOOE+OO 

6  25  1  1 

96.00  0.000  0.000  0.000  0.000 

(1H  «  7E 1 0. 4) 

6  1 

0.000  0.000  0.000 

- . 21 09 E+ 1 6 ♦.  OOOOE+OO- . 3228E+ 1 5 ♦. OOOOE+OO ♦. 3536E+ 1 5 ♦. OOOOE+OO ♦. 4533E 


+.0000E+00+. OOOOE+OO+.OOOOE+OO*. OOOOE+OO+.OOOOE+OO*. OOOOE+OO 

6  25  1  1 

96.00  0.000  0.000  0.000  0.000 

(1H  .7F10.4) 

7  1 

0.000  0.000  0.000 

♦  .OOOOE  +  OO*.  4320E+ 17 +  . OOOOE+OO*. 3541 E+ 18*. 0000E  +  00+. 49 62E+ 17*. OOOOE 
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6710  - • 6 76 4E+ I  7 

6  720  +.oooof+oo+.oooof+oo+.ooooe+oo+.ooooe+oo+.ooooe+oo+.ooooe+oo+. ooooe 
♦  00 

6730  6  25  1  1 

6  740  96.00  0.000  0.000  0.000  0.000 

6750  C1H  «  7F 1 0. 4) 

6760  6  1 

6770  0.000  0.000  0.000 

6  780  +.2699F+20+. 0000E+00+ • 5698E+ 19+. OOOOE+OO- . 5975E+ 19  +  .0000E+00- . 45 1 7E 
♦  20 

6790  ♦  . OOOOE+OO-. 9 102E+19 

6  800  +.OOOOF+00+. 0000E+00+. OOOOE +00+ .OOOOE+OO +.0000E+ 00+ • 0000F+00+. OOOOE 
♦  00 


6810  ♦ • OOOOF+OO 

6820  6  25  8 

1 

6830  96.00  0.000 

6840  <  1 H  ,7F10.4) 

6850  1  1 

0.000 

0.000 

0.000 

Tape  prepared 

6860  0.000  0.000 

0.000 

beforehand  In 

6870  +.0000E+00+. 1000E+04 

LOCAL  node 

6880  ♦ • OOOOF+OO 

6890  2  1 

6900  0.000  0.000  0.000 

6910  -.9472E+C7+. OOOOE+OO- .2241 E+06 

6920  ♦ • OOG0E+00+ . OOOOE+OO 

6930  3  1 

6940  0.000  0.000  0.000 

6950  ♦• OOOOE+OC+. 6837E+08  +  .  0000E+00+. 2341 E+ I  0 
6960  ♦• 0000E+00+. OOOOE+OO+.OOOOE+OO 
6970  4  1 

6980  0.000  0.000  0.000 

6  990  +.  15  45E+12+. OOOOE+OO* •  1 406E+ 1 1 ♦. OOOOE+OO- . 1 860E+ 1 1 

7  000  ♦. OOOOE+OO ♦. 0000E+00+. 0000E+00+. OOOOE  +  OO 

7010  5  1 

7020  0.000  0.000  0.000 

7030  ♦. OOOOE+OO-. 2 180E+13+. OOOOE+OO-. 28 12E+14+. OOOOE+OO-. 3 1 58E+ 13 

7  040  ♦ .  OOOOE+ 00+ .OOOOE+00+.  0000 E  + 00+ • 0000E+ 00+ • OOOOE+OO 

7050  6  1 

7060  0.000  0.000  0.000 

7  070  -.21 09E+16  +  . OOOOE+OO-. 3226E+ 1 5  + . OO00E+OO+. 3536E+ 1  5+. 0000E+00+ . 4533E 
♦  16 

7  080  ♦ . OO00E  +  00  +  . 0000F+00  +  . 0000 E+00+. 0000E+00+. 0000E+ 00+ • OOOOE+OO 

7  090  7  1 

7100  0.000  0.000  0.000 

7  110  ♦ • OO00F+00+ .4320E+17  +  .  O0OOE+O0+ • 3541E+18+.0000E+00+.49 62E+ 1 7  +  . OOOOE 
+  00 

7  120  -.6764F+I7 

7 130  + .  OOOOE +00+ • OOOOE+ 00+ •  OOOOE +  00+ • OOOOE +  00+ • 0000E+00+. 0000 E+00+. OOOOE 
♦  00 

7  140  8  1 

7150  0.000  0.000  0.000 

7  160  +. 2699 F+2O+.0OOOE+O0  +  .  5698 E+ 19 ♦. OOOOE  +  OO-. 597 5E+ 19 +  . OOOOE+OO-. 451 7E 
♦  20 
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7170  +.0000E+00-.9102F+19 

7  180  ♦.OOOOF+O0+.OOOOE+O0+.OOOOE+00*.OOOOE*00+.OOOOE+O0+.OOOOE*00*.OOOOE 

+  00  Tape  prepared 

7  190  ♦  •  OOOOE+OO  beforehand  Is 

7  200  0  0  0  0  LOCAL  mode 

T APE <0FF>*SAVF»PURPF<  I  ECC024) ♦BATCH . ♦QUEUES. 


♦♦SAVED  IECC024 
09.56. 18 . PURGE < I ECC024) 
TYPE  FILE  NAME- I ECC024 

TYPE  DISPOSITION-INPUT 

TYPE  FILE  NAME-END 


QUEUES  09.57.13.  I=«*18.  0=  2#  P*  0.  C*  4. 

INPUT  =  18 

I  ECC43L- I  CABRE3J-4  0FJLK3K- 5  GRID73I-5  GRIDN3H-5  CABRE3A-4 

C CBCB3F- 5  CABRE3E- 4  CABRE3G- 4  CABRE3D-4  EAADW3B-5  HHJC027-3 

CABRE25-4  IECC426-1  CABAP3C-5  HHJ1J22-2  CABRE28-4  CESEQ02-3 

OUTPUT*  2 

AJFLZ1Z-0  HHJDP 19-0 

PUNCH  =  NONE 

COMMON*  4 

GEOPP  -0  KEEP7  -0  SSSSSSU-0  SSSSSST-0 
CONTROL  PTS. 

DAJRI24-5  DBA  1820-  1 
09.57.13. STOP 
♦♦READY. 

LOGOUT. 

CP  TIME  1.674 

PP  TIME  82.029 

CONNECT  TIME  0  HR  14  MIN  9  SEC 
TOTAL  COST  OF  SESSION  =  $  3.58 

09/11/73  LOGGED  OUT  AT  09. 58. 07. < 


Note: 

1.  The  Information  typed  in  by  the  user  haa  been  underlined. 
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APPENDIX  I 


LISTING  OF  SA5024 


PROGRAM  0lPST0UNPUT-65.0UTPUT-65»TAPE5-lNPUT.TAPE6-0UTPUtTAPE99)  SA50001B 

SA500020 

SA500030 

C  SPHERICAL  HARMONIC  PROGRAM  SA500040 

SA500050 

SA500060 

C  THIS  PROGRAM  GENERATES  AND  ANALYZES  DATA  REPRESENTING  THE  NORMAL  SA500070 
C  COMPONENT  OF  THE  MAGNETIC  FIELD  FROM  A  SATELLITE.  THE  DATA  IS  ENTER EDS A 5 00080 
C  IN  THE  FOLLOWING  ORDER  —  SA500090 

SA500100 

NO  -  THE  NUMBER  OF  GREAT  CIRCLES  OF  DATA.  I  NO  IS  USUALLY  EVEN,  E.G.,  SA500110 
N0*(Nl-l)/2.  THE  PROGRAM  STOPS  IF  N0*0.)  SA500120 

SA5001 30 

N1  -  THE  NUMBER  OF  DATA  POINTS  PER  GREAT  CIRCLE.  <N1  IS  ALWAYS  ODD.  SA500140 
THE  FIRST  DATA  POINT  IS  THE  SAME  AS  THE  LAST  FOR  EACH  GREAT  CIR-SA500150 
LE.I  SA500160 

SA5001 70 

NH1  -  THE  TOTAL  NUMBER  OF  DIFFERENT  HARMONICS  (DEGREES)  OF  MULTIPOLE  SA500180 
MAGNETS  TO  BE  CONSIDERED.  SA500190 

SA500200 

NH2  -  THE  HARMONIC  NUMBER  (DEGREE)  REPRESENTING  THE  HIGHEST  DEGREE  SA500210 
SPHERICAL  HARMONIC  TERM  TO  BE  COMPUTED  FROM  THE  DATA.  (NH2»1  SA500220 

FOR  DIPOLES,  2  FOR  QUADRUPOLES,  ETC.)  SA500230 

SA500240 

IPl  -  DETERMINES  WHETHER  OR  NOT  THE  MAGNETIC  DATA  IS  TO  BE  PLOTTED.  SA500250 
(IP1-0  MEANS  THAT  THE  DATA  WILL  NOT  BE  PLOTTED.)  SA500260 

SA500270 

IP2  -  DETERMINES  WHETHER  OR  NOT  THE  MAGNETIC  DATA  IS  TO  BE  PRINTED.  SA500280 
(IP2*0  MEANS  THAT  THE  DATA  WILL  NOT  BE  PRINTED.)  SA500290 

SA500300 

IW  -  DETERMINES  THE  TYPE  OF  INTEGRATING  SCHEME  TO  BE  USED.  (IW-0  SA500310 

MEANS  THAT  THE  EXACT,  ALGEBRAIC  SCHEME  IS  TO  BE  USED.)  SA500320 

SA500330 

R1  -  THE  RADIUS  OF  THE  MEASUREMENT  SPHERE  IN  INCHES.  SA500340 

SA500350 

EG  -  THE  ERROR  (IN  GAMMAS)  TO  BE  RANDOMLY  INSERTED  INTO  THE  DATA  TO  SA500360 
REPRESENT  INSTRUMENTATION  INACCURACIES.  SA500370 

SA500380 

EA  -  THE  ERROR  (IN  DEGREES)  TO  BE  RANDOMLY  INSERTED  INTO  THE  DATA  TO  SA500390 
REPRESENT  MEASUREMENT  POSITION  ERRORS.  SA500400 

SA500410 

ED  -  THE  CONSTANT  ERROR  (IN  GAMMAS)  TO  BE  INSERTED  INTO  THE  DATA.  SA500420 
(THIS  WILL  BE  ANALYZED  AS  MONOPOLE  MOMENT.)  SA500430 

SA500440 

C  PY  -  THE  SCALE  FACTOR  (GAMMAS/ INCH)  FOR  THE  Y-AXIS  IF  THE  DATA  IS  TO  SA500450 
C  BE  PLOTTED.  (IF  PY=0.0  A  FACTOR  WILL  BE  COMPUTED  FROM  THE  DATA. ) SA500460 

SA500470 

C  F9  -  THE  FORMAT  FOR  READING  AND  PRINTING  THE  SPHERICAL  COEFFICIENTS  SA500480 


1-1 


KJ  \J  KJ  KJ  KJ  KJ  \J  KJ 
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C  A ( I  I  AND  Bill.  SA500490 

SA500500 

SA500510 

C  DO  **  NI-1.NH1  SA500520 

SA500530 

C  NN  -  THE  HARMONIC  NUMBER  ( DEGREE )  OF  THE  MULTIPOLE  DATA  BEING  READ  SA500540 

C  IN.  INN-1  FOR  DIPOLES#  2  FOR  QUADRUPOLES#  ETC.)  SA500550 

SA500560 

C  NM  -  THE  NUMBER  OF  MULTIPOLF.S  WITH  HARMONIC  NUMBER  NN.  SA500570 

SA500580 

SA500590 

C  DO  •  *  NJ-l.NM  SA500600 

SA500610 

P  -  THE  POSITION  VECTOR  I  IN  INCHES)  OF  THE  MULTIPOLE  IN  RECTANG-  SA500620 
ULAR  COORDINATES.  SA500630 

SA500640 

AID  -  THE  SPHERICAL  COEFFICIENTS  FOR  THE  MULTIPOLE  OF  DEGREE  NN  SAS00650 
WHERE  I«1 ,2,--,NN+l.  (1-1  IS  THE  ORDER  OF  THE  ITH  COEFF.)  SA500660 

SA500670 

BID  -  THE  SPHERICAL  COEFFICIENTS  FOR  THE  MULTIPOLE  OF  DEGREE  NN  SA500680 


WHERE  I  *1 #2 • —  «NN  (I  IS  THE  ORDER  OF  THE  ITH  COEFF.)  SA500690 

SA500700 

••NOTE**  THE  COEFFICIENTS  FOR  A  DIPOLE  OF  MOMENT  (DX.DT.DZ)  ARE  SA500710 
AS  FOLLOWS  —  SA500720 

A<1)-DZ.  A ( 2 ) «DX •  AND  B(1)«DY.  SA500730 

SA500740 

C  **  CONTINUE  SA500750 


SA500760 

SA500770 

►SA500780 

SA500790 

SA500800 

SA500B10 

SA500B20 

SA500830 

SA500840 

SA500850 

SA500860 

SA500870 

SA500880 

SA500890 

SA500900 

SA500910 

SA500920 

SA500930 

SA500940 

SA500950 

SA500960 

SA500970 

SA500980 

SA500990 

SA501000 

SA50I010 

SA50I020 

SA501030 

SA501040 

SA50I050 

SA501060 

SA501070 

SA501080 


DIMENSION  FI  1000) #P ( 3 ) #PV( 200 ) . A  I  1 1 ) #B 1 10 )  #R  I  3 ) »DM( 3 ) , FI  I  3 ) ,D! 3  ) 
+#A1 ( 33 ) »A2( 1000) »F9 (7) 

NAMELIST/NAM/N0.N1,NH1,NH2.IP1.IP2.IW,R1,EG,EA»ED,PY 
DATA  PI/3.14159265358979/ 

IPT-0 

10  READ! 5*01)  NO #Nl ,NH1 #NH2 . IP  1 . 1 P2 . I W 

I  F ( I PT , EQ. 0. AND. I  PI .NE • 0 )  CALL  CALCM1 10. 10H024  LACKEY, -10.) 

IF  I NO.EO.O )  GO  TO  110 
IFIIP1.NE.0)  I PT- 1 
READ (5.02)  R1,EG,EA,ED,PY 
READ (5.04)  F9 
WRITE! 6  »NAM ) 

WR I TE I  6  *  14 )  F9 
Dl-PI/FLOATINO) 

D2«2.»PI/FL0AT(N1-1 ) 

12-1 

DO  50  NI-l.NHl 
READ (5.01)  NN.NM 
WRITEI6.03)  NN »NM 
NN1-NN+1 
DO  40  NJ-l.NM 
READ  I  5 • 02 )  P 

READ  I  5  #  F9 )  I  A  (  I  )  ,  I «  1  ,NN1 ) 

READ ( 5  * F9 )  <B(  I  )  »I-1#NN) 

WR I TE ( 6  #02 )  P 

WR I TE ( 6  * F9  )  I  A ( I ) • I al *NN1 ) 

WR I TE ( 6  *  F9 )  ( B ( I ) » I =1 »NN ) 

IF(NJ.EO.l.ANO.IZ.EO.l)  CALL  SUM(0. #P#0. ,P.DM) 

IF(NN.NE.l)  GO  TO  20 
DM ( 1 )*DM( 1 )+A( 2) 


NOLTR  73-191 


DM ( 2  >  «0H ( 2 ) +B ( 1 1 
DM ( 3 ) »DM (  3  )  +  A  ( 1 ) 

20  DO  30  K-1.N0 

IF< IZ.EO.l)  A1 <K > -FLOAT <K-1)*D1+(RANF(1.1)-.5)*2.»EA»PI/180. 

51- SIN(AHK)  ) 

C 1 -COS ( A1 ( K ) J 
DO  30  L-l  #N1 
KL -L+ ( K-l )  *N1 

IF(  IZ.EQ.l  )  A2IKL) -FLOAT (L-l )  *D2+ (RANF < 1 . 1 ) -.5 )*2 -»EA»P I / 180. 

52- SIN(A2(KL) ) 

C2«COS( A2(  KL ) ) 

IF(IZ.EQ.l)  F ( KL ) -0- 
R ( 1 )  -R1*C1*S2 

R<  2)-Rl*Sl*S2 
R  <  3  )  -R 1*C2 

CALL  AMPFLD(R.P.NN,A,B.F1) 

30  F ( KL ) -F ( KL ) +DOT ( FI ,R ) /SORT < DOT ( R ,R ) ) 

IZ-0 

40  CONTINUE 
50  CONTINUE 
N3-N0*N1 
DO  60  I-1.N3 

60  F ( I) -F ( I )  +  ED*l.E-5+(RANF(l.l  *-.5)*2.E-5«EG 
IF(IW.EO.O)  CALL  WGT1 < NO ,N1 ,PV ) 

IF(IW.NE.O)  CALL  WGT3 ( NO ,N1 .PV ) 

CALL  AMPMNT(N0.N1,0.R1.F,PV,A.B) 

WRITEI6.05)  All) 

IFIIP2.NE.0)  CALL  PRINTF (F  *N0  »N1 ) 

IF(IPI.NE.O)  CALL  DATPLT < NO ,N 1 ,F  ,PY ) 

DO  100  NI-1.NH2 

CALL  AMPMNT(NOtNl,NI , R1 ,F » PV . A »B > 

IFINI.GT.l)  GO  TO  80 
D ( 1 ) -A ( 2  ) 

D ( 2 ) *B (  1  ) 

D  (  3  I  ■  A  (  1 1 
CALL  SPCOORID.R) 

CALL  SPCOOR ( DM  * F 1 ) 

WRITEI6.06)  DM. FI 
WRITEI6.07)  D.R 
IFIFKD.EO.O.I  WRITEI6.08) 

I F ( F 1 ( 1 ) .EO.O. )  GO  TO  90 
DO  70  1-1.3 

70  R(n«(DM(I)-D(m*100./Fl(l) 

WRITEI6.09)  R 
GO  TO  90 

80  IFINI.GT.2I  GO  TO  90 

53- SQRT ( 3 , ) 

Q1 1-S3*A ( 3 ) -A ( 1 ) 

Q22«-S3*A(3)-A<1) 

033- -Oil -022 
012«S3*B(2) 

Q13-S3*A( 2 ) 

Q23-S3*B( 1 ) 

WRITEI6.il )  011 .022.033,012.013,023 
90  WRITEI6.12)  NI 
NI 1-NI+l 

WRITEI6.13)  (AU).I-l.NIl) 

WR  I  TE  (  6 , 1 3  )  (Bm.I-l.NI) 

100  CONTINUE 
GO  TO  10 


SA501090 

SA501100 

SA501U0 

SA501120 

SA501130 

SA501140 

SA50U50 

SA501160 

SA501170 

SA501180 

SA501190 

SA501200 

SA501210 

SA501220 

SA501230 

SA501240 

SA501250 

SA501260 

SA501270 

SA501280 

SA501290 

SA501300 

SA501310 

SA501320 

SA501330 

SA501340 

SA501350 

SA501360 

SA501370 

SA501380 

SA501390 

SA501400 

SA501410 

SA501420 

SA501430 

SA501440 

SA501450 

SA501460 

5A501470 

SA501480 

SA5C1490 

SA501500 

SA501510 

SA501520 

SA501530 

SA501540 

SA501550 

SA501560 

SA501570 

SA501580 

SA501590 

SA501600 

SA501610 

SA501620 

SA501630 

SA501640 

SA501650 

SA501660 

5A501670 

SA501680 


1-3 
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1 F  (  IPT. 
STOP 
FORMAT ( 
FORMAT ( 
FORMAT! 

♦  7H  ARE 
04  FORMAT! 

FORMAT! 
FORMAT! 
FORMAT! 
FORMAT ( 
FORMAT! 
FORMAT ( 

♦  (3E20. 

12  FORMAT! 

13  FORMAT! 

14  FORMAT! 
END 


110 

01 

02 

03 


03 

06 

07 

06 

09 

11 


NE.O)  CALL  CALCMK0.10H024  LACKEY ,4 10 . ) 


VECTOR  AND  COEFFICIENTS  FOR  NN  I  NM  ■  ,213, 


1413) 

9F8.4) 

46H1P05 I T ION 
7A10) 

26H0THE  MONOPOLE  MOMENT  IS  — ,F20.6//) 

20H1ACTUAL  MOMENT  IS  --/3F20.6/3F20.6  ) 

24H1CALCULATED  MOMENT  IS  --/3F20.6/3F20.6) 

42H0PERCENT  ERROR  CANNOT  BE  COMPUTED  -  DM  .  0) 

20H0PERCENT  ERROR  IS  — /3E20.12) 

34H0THE  OUADRUPOLE  MOMENTS  Q 1 1 ,022 ,033 ,Ql 2 ,Q1 3 ,023  ARE  — / 
12)  ) 

27H0THE  A  (  B  COEFFS.  FOR  THE  ,I2,16HTH  HARMONIC  ARE9 ) 

1H  .5E20.12) 

6H0F9  ■  , 7 A 1 0 ) 


SUBROUTINE  AMPMNT  (  N0.N1 ,N ,R 1 , F ,P , A ,B ) 

DIMENSION  F! 1000)  ,P ( 200  I ,PN !  1  0,200 ) , A « 1 1 ) ,B ( 10 ) 
DATA  PI/3.14159265358979323846/ 

CALL  POLVAL (Nl  ,N,PN) 

KL-0 

N2«!Nl*l)/2 

DI-PI/FLOATINO) 

D2-2.#P I /FLOAT ( N 1  — 1 ) 

DO  10  K- 1 .NO 
A1-D1*FL0AT(K-1 ) 

LP-  +  1 
LI-0 

DO  10  L-l.Nl 
KL-KL+l 

IF(L.GT.N2)  LP--1 
Ll-LI+LP 

A2-A1+FL0AT! 1-LP) *PI/2. 

Fl-FOCL  ) 

A2N-FL0AT! 2*N+1 ) 


SAS01690 

SA501700 

SA501710 

SA501720 

SA501730 

SA501740 

SA301750 

SA501760 

SA301770 

SA501780 

SA501790 

SA501800 

SA501810 

SA301820 

SA501830 

SA501840 

SA501850 

SA501860 

SA501870 

SA50i880 

SA501890 

SA501900 

SA501910 

SA501920 

SA501930 

SA501940 

SA501950 

SA501960 

SA501970 

SA501980 

SA501990 

SA502000 

SA502010 

SA502020 

SA502030 

SA502040 

SA502050 

SA502060 


A1N-FL0AT ! N+l ) 
AR»(Rl*2.54)**(N+2) 

NN-N+1 

DO  10  MM* 1 ,NN 
M-MM-1 
AM-FLOAT  f  M ) 

IF(KL.EQ.l)  A ( MM ) *  0 . 
IFfKL.EQ.l.AND.M.GT.O)  B(M)-0. 
PNM 1 »PN ( MM , L I )*C0S!AM*A2) 
PNM2-PN ! MM , L I )*SIN(AM*A2) 

AC-! A2N*AR/A1N)*F1*P(LI  ) 

A ! MM )-A!MM)+AC*PNMl 
IF(M.GT.O)  B!M)-B(M)+AC*PNM2 
10  CONTINUE 
RETURN 
END 

SUBROUTINE  WGT1  (N0.N1 ,P) 
DIMENSION  D ( 50 ) »P ( 200 ) 
N4-(Nl+l)/4 
AN-FLOAT ( NO ) 

CALL  WGT2IN1 ,D) 


SA302070 
SA502080 
SA502090 
SA502100 
SA502110 
SA502120 
SA502130 
SA502140 
SA502150 
SA502160 
SA502170 
SA502180 
SA502190 
SA502200 
SA5022 1 0 
SA502220 
SA502230 
SA502240 
SA502250 
SA502260 
SA302270 
SA502280 


1-4 
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00  10  J1 ■ 1 *N4 
J3-N1/2+2-J1 
DJ-D( J1 1  / ( 4  •  *AN 1 
P<  J1 l-DJ 
10  PCJ31-DJ 

IFf INT ( FLOAT  <  N 1  —  1  )  /4.  f  .  1  I  *4«NE« (Nl-1 ( )  GO  TO  20 
J1-N4+1 

P(  J1 )>D(J1 1/(4. *AN) 

20  N4- (  N 1  + 1  1 /2 
P(N4)-P(N4)*2. 

RETURN 

END 

SUBROUTINE  WGT2(N,D) 

DIMENSION  AJ50.50) .D(50) .C(50) 

DOUBLE  PRECISION  A, C. PI. AN 

DATA  P 1/3. 141 5926535897932 3046264300/ 

N3- ( N+l 1 /4 

N4-N3+1 

DO  10  1-2. N4 

Cl  I  1 -1 ./FLOAT(2*I-l  1 

A ( I .11-1. 

A ( I .N41-0. 

DO  10  J-2.N3 

AN-2.*PI*DBLE( FLOAT ( J-l 1  I /DBLE ( FLOAT ( N-l  1  1 
10  A( I . J) -(DCOS(AN) 1 **  <  2*  I -2 1 
C ( 1 1 -2. 

A( 1.N41-1. 

DO  20  J-1.N3 
20  A( 1  * J) -2. 

N3-N4 

I F ( I  NT (FLOAT (N-l 1  /4.  + . 1 ) *4.NE . < N- 1  )  1  N3-N3-1 
CALL  GAUSEUA.C.N3.N3.1) 

DO  30  I-1.N3 
30  D( I)-C(I) 

RETURN 

END 

SUBROUTINE  WGT  3 ( NO  « N1  ,P  ) 

DIMENSION  P ( 200 1 

DATA  PI /3.  14159265358979323846/ 

D2=2.»PI /FLOAT (Nl-1 1 
El- ( SINID2/4. ) )**2 
E2-SINID2/2. 1 
P ( 1 )=E1/(2.*FL0AT (NO)  1 
N2- ( Nl  +  1  1  /2 
P ( N2 1 =P ( 1 1*2. 

IF(N1.LE.3I  RETURN 
N3-N2-1 
DO  10  L-2.N3 
S2»SIN(D2*FLOAT(L-l  1  1 
P(L)-A8S(S2*E2)/(2.*FLOAT(N0) 1 
10  CONTINUE 
RETURN 
END 

SUBROUTINE  GAUSEL  (  A  ,C  ,M  ,N  ,  I T ) 

DIMENSION  A  <  50 . 50 1 . C  (  50) *  I B  (  5  0  I 
OOUBLE  PRECISION  A.C.D 
C  WR l TE ( 6  *03 1 


SA502290 
SA502300 
SA502310 
SA502320 
SA502330 
SA502340 
SA502350 
SA502360 
SA502370 
SA502380 
SA502390 
SA502400 
SA502410 
SA502420 
SA502430 
SA502440 
SA502450 
SA502460 
SA502470 
SA502480 
SA502490 
SA502500 
SA502510 
SA502520 
SA502530 
SA502540 
SA502550 
SA502560 
SA502570 
SA502580 
SA502590 
5A502600 
SA502610 
SA502620 
SA502630 
SA502640 
SA502650 
SA502660 
SA502670 
SA502680 
SA502690 
SA502700 
SA502710 
SA502720 
SA502730 
SA502740 
SA502750 
SA502760 
SA502770 
SA502780 
SA502790 
SA502800 
SA502810 
SA502820 
SA502830 
SA502840 
SA502850 
SA  502860 
SA502870 
SA502880 
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C  00  20  I ■ 1 # M 

C  20  WRITEI6.04)  (  A ( I  •  J  )  •  J»1 *N ) ,C ( 1  ) 

00  70  I - 1 . N 
70  1 8  (  I ) ■  I 

00  60  I ■ 1 #M 

IF(  IT.NE.0.AN0.M.NE.N)  GO  TO  35 
D“0« 

JJ-0 

DO  10  J-I.N 

IF ( DABS ( A( I ,  J ) ) .LE.D)  GO  TO  10 
JJ«J 

D«DABS ( A (  I  ,J) ) 

10  CONTINUE 

IF< JJ.EO.I )  GO  TO  35 
IF(JJ.NE.O)  GO  TO  140 
WR  I  TE  (  6  «01  )  I 
GO  TO  110 
140  DO  160  J-l .M 
D-A< J,  JJ) 

A( J.JJI«A( J.I) 

160  A ( J* I) *D 
10- IB  < JJ) 

IB( JJ)-IB(I) 

IB(I)«I0 
35  D»A<  1. 1  ) 

DO  30  J-I.N 
30  A  (  I  *  J )  *  A  ( I ,J) /D 

cm-cm/o 

DO  50  J-l.M 
IFIJ.EQ.n  GO  TO  50 
D«A< J. I ) 

IFID.EO.O. )  GO  TO  50 
DO  40  K-I.N 

40  A( J,K)-A( J,K)-D*A( I *K  ! 

C< J)-C( J1-D*C(  I  I 
50  CONTINUE 
60  CONTINUE 

110  IF< IT.EQ.O.OR.M.NE.N)  GO  TO  100 
DO  120  I  *  1  *  N 
120  AU.NI-CU) 

DO  130  I  *  1 1 N 
1 1 • ?B(  I  ) 

130  CdD-AII.N) 

100  CONTINUE 

IF(IT.EQ.O)  WR I TE ( 6  »02 )  (IB(I).I«1|N) 

WR I TE ( 6  *05  ) 

DO  80  I ■ 1  * M 

80  WR I TE ( 6  *04  I  (AII.JI.J»1.N).CII) 

RETURN 

01  FORMAT ( 5H1 ROW  .I2.14H  IS  ALL  ZEROS.) 

02  FORMAT ( 24H0SINGLE  PERMUTATION  IS*. .2013//) 
03  FORMAT ( 2 1H0THE  INPUT  MATRIX  IS9//1 
04  FORMAT ( 1H  ,7016.8) 

05  FORMAT  1 22H0THE  OUTPUT  MATRIX  IS9//) 

END 

SUBROUTINE  POLVAL ( N1 ,N,PN) 

DIMENSION  PN ( 1 0 . 200 ) 

DATA  PI /3. 14159265358979323846/ 

D2«2.*PI /FLOAT ( N 1  — 1  ) 


SA502890 
SA502900 
SA502910 
SA502920 
SA502930 
SA502940 
SA502950 
SA502960 
SA502970 
SA502980 
SA502990 
SA503000 
SA50301 0 
SA503020 
SA503030 
SA503040 
SA5030S0 
S A503060 
SA503070 
SA503080 
SA503090 
SA503100 
SA5031 10 
SA503120 
SA5031 30 
SA503140 
SA503150 
SA503160 
SA503170 
SA503180 
SA503190 
SA503200 
SA503210 
SA503220 
SA503230 
SA503240 
SA503250 
SA503260 
SA503270 
SA503280 
SA503290 
SA503300 
SA503310 
SA503320 
SA503330 
SA503340 
SA503350 
SA503360 
SA503370 
SA503380 
SA503390 
SA503400 
SA50341 0 
SA503420 
SA503430 
SA503440 
SA503450 
SA503460 
SA503470 
SA503480 
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N2-IN1+1 ) n 
DO  10  I ■ 1 *N2 
A2-D2*FLOAT< 1-1 ) 

C2-C0S< A2) 

NN-N+1 

DO  10  MM-l.NN 
M-MM-1 

PNlMM.I )  “SPNM(N,M,C2 > 

10  CONTINUE 
RETURN 
END 

SUBROU1 TNF  AMPFLD(R *P*N»A«B»F) 

DIMENSION  R(3)*P(3)*A(ll)«B(10)«F(3)*U(3t»VO)»W(3) 

DATA  PI/3.14159265358979/ 

CALL  SUM! 1. »Rt-l. .P.U) 

CALL  SPCOORIU.V) 

R1“V( 1 ) *2.54 
IF (R1.NE.0. )  GO  TO  10 
PRINT  01 
RETURN 

10  01-V(2)»P1/180. 

02“V(3)*PI/180. 

Sl-SIN(Ol)  *  S2“SIN<02> 

C1“C0S(01)  $  C2-C0SI02) 

U( 1 )«C1*S2  *  U(2)-S1*S2  $  U(3)«C2 

V<1)“C1*C2  S  V(2)“S1*C2  S  V(3)«-S2 

Will— SI  S  WI2I-C1  S  W<  3)-0. 

H1-H2-H3-0. 

NN-N+1 

DO  30  MM-l.NN 
M*MM- 1 

PI “FLOAT ( M) *01 
SM1»SIN(P1)  S  CM1 “COS ( PI ) 

P1“SPNM(N,M,C2 ) 

P2“SPNM <  N.M+1 . C2 ) 

P3-P4.0.  S  CP “SORT ( FLOAT (N*(N+l))/2.) 

IF(M.EQ.O)  GO  TO  20 

P4-FLOATI (N-M+l)*(N-M+2) ) *PNM ( N+l »M-1 ,C2 ) +PNM t N+l  ,M+1 ,C2 ) 
P4».5*SORT(2.*ANF(N-M)/ANF(N+M))«P4 
P3«C2*P4  $  CP “SORT ( FLOAT ( ( N-M ) ♦ ( N+M+ 1 ) ) I 
20  Bl-0. 

IF(M.GT.O)  Bl-B(M) 

A1“A(MM)#CM1+B1»SM1 
HI “HI +A 1 *P 1 
H2«H2+A1*(CP»P2-P3  ) 

H3“H3+(A(MM)*SM1-B1*CM1 )*P4 
30  CONTINUE 
Rl«Rl**(N+2) 

Hl»FLOAT (N+l )»H1/R1  S  H2=H2/R1  S  H3-H3/R1 
CALL  SUM (HI «U«H2  »V»F)  $  CALL  SUM( 1. ,F.H3 .W.F ) 

RETURN 

01  FORMAT ( 50H0FIELD  VECTOR  CANNOT  BE  COMPUTED  AT  POLE  POSITION.//) 
ENO 

FUNCTION  SPNM(N.M.X) 

SPNM.PNM(N,M,X ) 

IF(M.EQ.O.OR.M.GT.N)  RETURN 
SPNM“SORT(2.*ANF(N-M)/ANF(N+M) )#SPNM 
RETURN 


SA503490 

SA503500 

SAS03510 

SA503520 

SA503530 

SA503540 

SA503550 

SA503560 

SA503570 

SA503580 

SA503590 

SA503600 

SA503610 

SA503620 

SA503630 

SA503640 

SA503650 

SA503660 

SA503670 

SA503680 

SA503690 

SA503700 

SA503710 

SA503720 

SA503730 

SA503740 

SA503750 

SA503760 

SA503770 

SA503780 

SA503790 

SA503800 

SA503810 

SA503820 

SA503830 

SA503840 

SA503850 

SA503860 

SA503870 

SA503880 

SA503890 

SA503900 

SA503910 

SAK03920 

SA503930 

SA503940 

SA503950 

SA503960 

SA503970 

SA503980 

SA503990 

SA504O00 

SA504010 

SA504020 

SA504030 

SA504040 

SA504050 

SA504060 

SA504070 

SA504080 
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END 

FUNCTION  PNM(N.M.X) 

PNM-0. 

IF(H.GT.N)  RETURN 

IFI ( ABS< l.-ABS(X) ) ) .GT.l.E-9)  GO  TO  20 

IF(M.NE.O)  RETURN 

PNM--1. 

IF(X.GT.O..OR.N.EQ.INT(FLOAT(N)/2.+.l)*2)  PNM-1. 
RETURN 

20  CNM-I2.»«N)*ANF(N)#ANF(N-M) 

PNM-1 . 

IF(M.NE.O)  PNM-SQR T(1.-X*X)**M 

CNM- ANF ( 2*N ! *PNM/CNM 

PNM-1. 

IF (M.NE.N)  PNM-X»»(N-M) 

IF ( N-M.LE. 1 )  GO  TO  40 
PRD1-1 . 

NT-IN-M) n 

DO  30  I-l.NT 

AN 1 -FLOAT ( N-M-2* I +2 ) 

AN2-FL0AT (2*11 

AN3 -FLOAT ( 2*N-2* I ♦ 1 ) 

PRD1--PRD1*AN1*(AN1-1 )/(AN2*AN3) 

NE-N-M-2*I 

AN1-1. 

IF(NE.GT.O)  AN1-X*»NE 
PNM-PNM+PRD1«AN1 
30  CONTINUE 
40  PNM-CNM*PNM 
RETURN 
END 

FUNCTION  ANF(N) 

DOUBLE  PRECISION  AN 
ANF-1. 

AN-1. DO 

IF(N.LT.O)  PRINT  01 
IFIN.LT. 2)  RETURN 
DO  10  1-2. N 

10  AN-AN*DBLE ( FLOAT (III 


SAS04090 
SA504100 
SA504110 
SA504120 
SA504130 
SA304140 
SA504150 
SA504160 
SA504170 
SA504180 
SAS04190 
SA504200 
SA504210 
SA504220 
SA304230 
SAS04240 
SA504230 
SA504260 
SA504270 
SA504280 
SA504290 
SA304300 
SA504310 
SA304320 
SA304330 
SA504340 
SA504350 
SA504360 
SA504370 
5A504380 
SA504390 
SA504400 
SA504410 
SA504420 
SA504430 
S A504440 
SA504450 
SA304460 
SAS04470 
SA504480 
SA504490 


ANF-SNGL ( AN)  SA504500 

RETURN  SA504510 

01  FORMAT ( 37H1 FACTOR  I AL  INTEGER  IS  LESS  THAN  ZERO.//)  SA504520 

END  SA504530 

SA504S40 

SUBROUTINE  SPCOOR(D.R)  SA504550 


DIMENSION  D ( 3 )  .R(3) 

DATA  PI/3.14159265358979/ 

R  ( 1 )  -  SORT  I  DOT ( D .D ) ) 

RI2I-0. 

RI3I-0. 

IF(R( ll.EO.O.  I  RETURN 

I F ( D I 1) ••2*0(2  >**2.NE.O.  )  R(2 I-ATAN2IDI 2) *D< 1 ))*180./PI 

R(3)-ATAN2IS0RT(D(1 ) **2+D( 2 ) «»2 ) .0 ( 3 )) *180. /P I 

RETURN 

END 

SUBROUTINE  SUM ( A .X ,B . Y .Z ) 

DIMENSION  X  (  3 ) * Y<  3 ) -Z ( 3 ) 


SA504560 

SAS04570 

SA5045B0 

SA504590 

SA504600 

SA504610 

SAS04620 

SA504630 

SA504640 

SA504650 

SA504660 

SA504670 

SA504680 
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00  10  1-1.3 

io  zm  ■  a*x < !  ♦b*y ( ?  i 

RETURN 

END 

FUNCTION  DOT(X.Y) 

DIMENSION  X ( 3 ) » Y ( 3 ) 

DOT-X(l)*Y(l)+X(2)*Y(2)+X(3)*Y(3) 

RETURN 

END 

SUBROUTINE  PR  1 NTF ( F ,N0 . N1 ) 

DIMENSION  FlflOO).Fl(lOO) 

DO  20  XO-1 .NO 
DO  10  I-1.N1 
1 1 ■ I ♦ ( KO-1 ) *N1 
10  Fim»F(III*l.E5 
WR I TE ( 6 .01 )  KO 

20  WR  I  TE  (  6 .02  )  IF1(KK)»KK«1.NU 
01  FORMAT ( 11H0CURVE  NO.  .12) 

02  FORMAT ( 1H  .8FB.1  ) 

RETURN 

END 

SUBROUTINE  DATPL T ( NO.Nl  ,  F , YD  I  ST  ) 

DIMENSION  F(IOOO)  .FH33).F2(73).X(33».X1(73).C(1  ).P(1  )»CH(16) 

DATA  PI/3. 14159265350979/ 

DATA  CH/1H1.1H2.1H3.1H4.1h5.1H6,1H7.1h8.1H9,2H10.2H11»2H12.2H13. 
+  2H14.2H15.2H16/ 

N3«N0»N1 

CALL  YSCALE(N3.C.YDIST.YMAX,YMIN) 

DX- 360. /FLOAT (Nl-1 ) 

FI  (  1  )  -F  1  (  2  )  =  YMAX  S  XID-O.  *  XI21-360. 

CALL  CALCM1 ( 2 . X , F 1 , 0 . 0 .  .  360 . . YMI N , YMAX . 6 . .7. ,T ITLE.O. 

+  20HCOL AT  I TUDE  ( DEGREES  ). -20 . 30HNORMAL  MAGNETIC  FIELD  (GAMMAS). 

+  30.0. . 18  ) 

F1I21-YMIN  S  X  (  1  )  -X ( 2 ) *360. 

CALL  CALCM 1 (-2.X.F1.0) 

Fim-Fl(2)-0.  S  X  (  1  1*360.  S  X(2)-0. 

IFtYMAX.GT. 0.0. AND.YMIN.LT. 0.0)  CALL  CALCM1 (-2 ,X,F1  .0) 

DO  10  I-1.N1 
10  X( I )»DX*FLOAT( 1-1  ) 

DO  20  1-1.73 
20  XI ( I ) « 5 , *FLOAT ( 1-1 ) 

IJ-0 

DO  50  1*1. NO 
DO  30  J-1.N1 
IJ-t J+l 

30  FI  (  J  )  =F ( I J ) *  1 «  E  +  5 

CALL  FNCTONfFl  ,N1-1  »C»<"0*P.N2  ,DEV  ) 

DO  40  N-1.N2 
EN-N 

DO  40  J=1 .73 
XX-X1 ( J ) *P I /180, 

IF(N.EO.l)  F2(J)«C0 
40  F2 (J )-F2 ( J )  +C (  N  )  •  S  T  N  ( EN*XX  +  P(N)  ) 

CALL  CALCM1 (-73. XI .F2.C) 

DO  50  J-1.N1 
NC-l+I/10 

CALL  SYMBL4(X(J)/60.»(F1(J)-YMIN)/YDIST,.08.CH( II .0.. NCI 


SA504690 
SA504700 
SA504710 
SA504720 
SA504730 
SA504740 
SA504750 
SA504760 
SA504770 
SA504780 
SA504790 
SA504800 
SA504810 
SA504B  20 
SA504830 
SA504840 
SA504850 
SA504860 
SA504870 
SA504880 
SA504890 
SA504900 
SA504910 
SA504920 
SA504930 
SA504940 
SA504950 
SA504960 
SA504970 
SA504980 
SA504990 
SA505000 
SA505010 
SA505020 
SA505030 
SA505040 
SA505050 
5A505060 
SA505070 
SA505080 
SA505090 
SA505100 
SA505110 
SA505120 
SA505130 
SA505140 
SA505150 
SA505160 
SA505170 
SA505180 
SA505190 
SA505200 
SA5052 10 
SA505220 
SA505230 
SA505240 
SA505250 
SA505260 
SA505270 
SA505280 
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50  CONTINUE 
RETURN 
END 

SUBROUTINE  FNCTON ( F , NSCANS. C »C0 »PH! .N2.DEV1 
DIMENSION  FI1I«GI33)iCI1)iPHIII) 

DATA  PI/3. 14159265358979/ 

DX-2«*P I /FLOAT ( NS CANS  I 

NE-NSCANS/2+1 

C0-0. 

DO  10  J-l. NSCANS 
10  CO-CO*F(J)/FLOAT(NSCANS> 

DO  30  N-l.NE 

EN-N 

Sl-O. 

Cl-O. 

X--DX 

DO  20  J*1 .NSCANS 
X-X+-DX 

Sl«Sl-Ml./Pn*F(J)*SIN(EN#X)»DX 
20  C1»C1  +  (1./PI  )*F( J)*COS(EN*X)*DX 
C(N)-SQRT(S1**2+C1**2) 

IFUFLOAT(N)  )  .EO.  (FLOAT  I  NSCANS  1/2.11  C(N)-C(N)/2. 
PHI (N)-O.O 

30  IF(IS1**2+C1**2).NE.0.J  PHI  < N ) -ATAN2 (Cl »S1 > 

DO  50  N-l.NE 
EN-N 
X--DX 
DEV1-0. 

DO  40  J-l. NSCANS 
X-X+DX 

IF(N.EO.l)  G ( J ) -CO 
G(  J)-G( JI+C(N)»SIN(EN*X+PHI (Nil 
40  IF(ABS(G( JI-F(J)) .GT.DEV1 )  DEV1«ABS(G( J >-F ( J M 
IF(N.EQ.l)  DEV-DEV1 
IF(N.EO.l)  N2-1 
IF(DEVl.LT.DEV)  N2-N 
IF(DEVl.LT.DEV)  DEV-DEV1 
50  CONTINUE 
RETURN 
END 

SUBROUTINE  YSCALE ( N.F .YD.YX »YM) 

DIMENSION  F ( 800 ) 

PP«F<1) 

PN-PP 

DO  10  I-l.N 

IF(F( I I.GT.PP)  PP-F(I) 

IF(F(I».LT,PN)  PN-F ( I | 

10  CONTINUE 
pp-pp*I,E+5 
PN«PN#l.E+5 
P-PP-PN 
SN-O. 

IFIPP.GT.O.)  SN-1  • 

IF ( YD.NE.O. 1  GO  TO  50 

DO  20  1*1.21 

FA-< l.E-9)*< 10.**I  ) 

FAl»FA*.l 

IF ( P/FA.GE. 1 . )  GO  TO  20 


SA505290 
SA505300 
SA505310 
SA505320 
SA505330 
SA505340 
SA505350 
SA505360 
SA505370 
SA503380 
SA505390 
SA505400 
SA505410 
SA505420 
SA505430 
SAS05440 
SA505450 
SA505460 
SA505470 
SA50S480 
SA505490 
SA505500 
SA505510 
SA505520 
SA505530 
SA505540 
SA505550 
SA505560 
SA505570 
SA505580 
SA505590 
SA505600 
SA505610 
SA505620 
SA505630 
SA505640 
SA505650 
SA505660 
SA505670 
SA505680 
SA505690 
SA505700 
SA505710 
SA505720 
SA505730 
SA  505740 
SA505750 
SA505760 
SA505770 
SA505780 
SA505790 
SA505800 
SA505810 
SA505820 
SA505830 
SA505840 
SA505850 
SA505860 
SA505870 
SA505880 
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GO  TO  30 
20  CONTINUE 
30  YD-5.*FA1 

YX-FLOAT ( I  NT ( PP/YD+SN ) )#YD 

YM«YX-7.*YD 

CN-4. 

00  40  1-1.3 

CN-CN».3 

YD1-CN»FA1 

YX1- FLOAT ( INT IPP/YDI+SNJ )*YD1 
YM1-YX1-7.#YD1 

IF C (7.»Y01-P) .LT.O.O.OR.YXl.LT.PP.OR.YMl.GT.PN)  RETURN 
YD-YD1 
YX-YX1 
YM-YM1 
40  CONTINUE 

50  YX-FLOAT ( INT (PP/YD+SN ) )  *YD 
YM-YX-7.*YD 
RETURN 
END 


SA303890 

SA503900 

SA505910 

SA505920 

SA503930 

SA505940 

SA505950 

SA503960 

SA505970 

SA505980 

SA505990 

SA506000 

SA506010 

SA506020 

SA506030 

SA506040 

SA506050 

SA506060 

SA506070 

SA506080 
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APPENDIX  J 

SAMPLE  PROBLEMS  FOR  SA5024 

I.  PROBLEM  EXECUTED  ON  INTERCOM  (TIME-SHARING  STSTEhB) 


N0L  INTERCOM 
TYPE  "LOGIN. " 

LOGINCS) 

ll  I  I  II  IH  — —  I 


09/14/73  13.26.48.  BC/42/35 

C-  SETUP. GENERAL 

ON  AT  13.27.14.  09/14/73 

♦  ♦GENERAL 

♦  ♦NEW  OR  OLD  FILE-  ATTACH ( AAA# BN5024) *REWI  N DC  AAA)  ♦  COPYBRC AAA#  FIL#  1  5> 

1  3.27.44. ATTACH ( AAA#  BN5024) 

♦  ♦READY. 

R E TURN < AAA) 

♦  ♦READY. 

FIL. 

16  33  1  8  0  0  0 

96.00  0.000  0.000  0.000 

C7E10.4) 


SNAM 

NO 

II 

o 

* 

N  1 

=  33# 

NH1 

=  1# 

J-l 


EG  =  0.0# 

EA  =  0.0# 

ED  =  0.0# 

PY  =  -0.0# 

$  END 

F  9  =  (7E10.4) 

1  3 


i 


POSITION  VECTOR  AND  COEFFICIENTS  FOR  NN  *  NM  =  1  3  ARE  -- 

39.00  0.000  0.000 

♦ .0000E+00+. 3100E+05 
♦ .OOOOE+OO 

39.0000  0.0000  0.0000 

.  . 31 Q0E+05 


-21.00  36.373  0.000 

+  .OOOOE+OO-  .  1500E+05 
+ • 2598E+05 


21.0000  36.3730  0.0000 

.  -  •  1  500E+05 

. 2598E+05 
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■3 

i 

I 


■21.00  -36*373  0*000 

+ .0000E+00-. 1 500E+05 
- .259BE»05 


21.0000-36*3730  0.0000 

-.  1500E+05 


. 2598E+05 

THE!  M0N0P0LE  MOMENT  IS  --  .000005 


ACTUAL  MOMENT  I  S  -- 
1000.000000 
1000.000000 


0.000000 

0.000000 


0.000000 

90.000000 


CALCULATED  MOMENT  IS  -- 

999.999347  .000000  -.000000 

999.999347  .000000  90.000000 

PERCENT  ERROR  IS  -- 

.653140392387E-04  - . 367 553809 6 1 OE- 09  . 204352090605E- 10 

THE  A  *  B  C0FFFS.  FOR  THE  1 TH  HARMONIC  ARE: 

-. 20435209 08 05E- 09  . 999999 346860E+03 

•  367553809  6 10E-08 

THF  QUADRUPOLE  MOMENTS  Q 1 1 »  022. 033. 01 2.  01 3. Q23  ARE  -- 

•908333976792E+07  . 9659 68240459E+07  -. 1 89 43022 1 725E+08 

-.  1 40861894026E-05  . 27 725  1 22 1 7 53E-08  - .  1 1 4906029088E-06 


THE  A  *  8  C0EFFS.  F0R 
-.947151  108 626E+07 
-.6634218I5261E-07 


THE  2TH  HARM0NI C  ARE! 

. 16007 1067 51 2E-08  - .224 1 1 08  I  5 1 3 1 E  +  06 

-.81 32 665243 47 E-06 


THE  A  A  0  C0EFFS.  F0R  THE  3TH  HARMONIC  ARE! 

•  468 9 39 5 427 70E- 04  .  68 3659 43 1  1 70E  +  08  - .223517417908E-07 

3833E+10 

-.814609  229565E-04  .864430482984E-05  - . 1 8 341 2397746E- 03 


THE  A  A  B  C0EFFS.  FOR  THE  4TH  HARMONIC  AREl 

.  154465924862E+12  -.  776 1 98242 1 88E-03  .  1 4058 475579 5E+ 1  1 

I  507E-0 1  -.  186018026985E+1 1 

.351  1 42883301E-02  . 1 1 837 1 725082E+00  - . 7 3337 55493 1 6E-03 

3048E-0 1 


THE  A  A  B  COEFFS.  FOR  THE  5TH  HARMONIC  AREl 

-. 487304687500E  +  00  -  .  2 1 79 5 400 1 634E+ 1 3  - . 256347656250E-0 1 

7225E+14  - • 82088  47 0459 OE-O 1 

-.315797097447E+13 

. 177050781250E+01  . 1 28906250000E+00  . 1 77 1 7285 1 563E+0 1 

7  002E+00  -.294870560169E+02 


THE  A  A  B  COEFFS.  FOR  THE  6TH  HARMONIC  AREl 

-.21088499 1589E+16  -  .  1 9 5000000000E+02  -. 322787259 1 84E+ 1 5 

-.21 088  499 1 589 E+ 1 6  - . 1 9 5000000000E+02  -. 322787259 1 84E+  1  5 

5000E+03  • 353625883682E+ 1 5 

•  2254797  36 328 E+ 02  .45327223221  1E+16 

.  128687500000E+03  .  104384375000E+04  .8851 56250000E  +  D1 

4375E+04  -.2627026367 19E+02 

-.11 44425949 10E+04 


THE  A  A  B  COEFFS.  FOR  THE  7TH  HARMONIC  AREl 

- . 225  424000000E+06  . 43 1 99 4422628E+ 1 7  . 1 72800000000E  +  04 

7182E+18  -. 101790000000E+05 

•  49 62419208 08 E+17  - . 293837539062E+05  -. 676359 1 28706E+ 1  7 

- . 2678  40000000E+05  -  .  1 5«800000000E+05  - . 230640000000E+05 

0  000E  +  05  .  1  15108750000E+06 

-.9 3350078 1250E+04  -. 660728401 367E+06 


THE  A  A  B  COEFFS.  FOR  THE  8TH  HARMONIC  AREl 
•2699 42 7721 59 E+20  . 206438400000E+07 

0  000E+07  -.597539013375E+19 

-. 1568 19200000E+07  - . 45 1 69 4469 1 07E+20 

9  666E+19 

-. 42557  440000 0E+ 07  . 626974720000E  +  08 

0  000E+08  .  175494400000E  +  07 

. 531896320000E+08  - . 1 74570300000E+07  -. 


569785815443E+19 
765785875000E+06 
271 462400000E+07 
I  05260966 187E  + 09 


0 


.23409232 

-.10529816 

-.24567153 

-.28122218 

-.77190017 

.10126562 

.10126562 

.17665273 

.35406399 

-.12074000 

-.60129280 

-.91015764 

.52427776 


1  3.  38.54.  STOP 

♦♦READY. 

LOGOUT. 


CP  TIME  22.322 

PP  TIME  106.909 

CONNECT  TIME  0  HR  12  MIN  22  SEC 
TOTAL  COST  OF  SESSION  ■  S  6.16 
09/14/73  LOGGED  OUT  AT  13. 39. 10. < 

Notest 

1.  The  file  BN5024  le  the  binary  version  of  SA5024.  It  oonslsta  of  18  binary 
records  (subprograms).  The  last  three  are  plotting  routines  and  are  not  used  when 
executing  problems  on  INTERCOM. 

2.  The  information  typed  in  by  the  user  has  been  underlined. 
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II.  PROBLEM  SUBMITTED  TO  BATCH 


N0L  INTERCOM 
TYPE  "LOGIN." 

L0GIN<  S) 

0  24S33LACK/  — —  /4 


09/14/73  13.40.17.  BC/42/35 

C-  SETUP. GENERAL 

ON  AT  13.40.33.  09/14/73 

♦♦GENERAL 

♦  ♦NEW  OR  OLD  FILE-  NEW/1  ECC02  4^ TAPE  CON) 


♦♦READY.  _ 

1  I ECC5ST#P1#T200#CM060000.S5302435# 024# LACKEY. 
2 ATTACH ( ABC. NOLBIN) 

3C0PYNC  0#  DEF# ABC) 

4RETURN( ABC) 

5 ATTACH (BN5024.BN5024) 

6  REWINDf  BN5024) 

7  C0PYBF< BN 5024# CBA) 

8  RE TURN (BN 502 4) 

9  L0AD<  CBA) 

1 ODEF. 

1 1+WE0R 
1 2REWIND( ABC) 


1  3G0ULD1  »  1  4#  ABC 

1  4+WE0R 

6  100 

16  33 

1 

8  1 

1 

0 

6  1  10 

96.00 

0.000 

0.000 

0.000 

0.000 

6  120 

(9F8.4) 

6  130 

1  1 

6  140 

20.00 

0.000 

0.000 

6  150 

0.000 

1000. 

6  160 

0.000 

6  170 

16  33 

1 

8  1 

1 

0 

6  180 

96.00 

0.000 

0.000 

0.000 

0.000 

6  190 

<  9  F8  •  4) 

6  200 

1  1 

6210 

20.00 

0.000 

0.000 

6220 

0.000 

0.000 

6230 

1000. 

6  240 

0  0 

0 

0  0 

0 

0 

TAPE(OFF) 


Tape  prepared 
beforehand  in 
LOCAL  mode 
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♦♦READY. 

SAVEePURGECl ECC02  4)  ♦BATCH.  ♦QUEUES* 

♦♦SAVED  IECC024 
I 3.43.50. PURGECI ECC024) 

TYPE  FILE  NAME-1 ECC024 

TYPE  DI  SP0 SI  TI0N- INPUT 

TYPE  FILE  NAME-END 


QUEUES  13.44.38.  1=  It  0=  0.  P=  0.  C=  3. 

INPUT  =  7 

CABAP72-2  BDCR07K- 1  BDC9R7N- 3  BDCSH7U-1  IECC579-1  PCCRW78-5 
C  ESEQ02-3 
0 UTPUT=  N0NE 
PUNCH  =  N0NE 
C0MM0N=  3 

FARE2  -0  SSSSSSU-0  SSSSSST-0 
C0NTR0L  PTS. 

I  CCBB63- 3  GRIDA7S-5  CABTR7T- 5  CBCQ26K- 1  AUDIT73-4  HHJL371-2 
C  CB7870- 5 
1 3.44.38.ST0P 
♦♦READY. 

L0G0UT. 

CP  TIME  .765 

PP  TIME  96.846 

C0NNECT  TIME  0  HR  5  MIN  4  SEC 
T0TAI  C0ST  0F  SESSI0N  =  J  2.14 
09/14/73  L0GGED  0UT  AT  13. 45. 21. < 

Note: 

1.  The  Information  typed  in  by  the  user  has  been  underlined. 
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APPENDIX  K 

NOL  TECHNICAL  NOTE  9726 
"NUMERICAL  COMPUTATION  OF  LEGENDRE 
POLYNOMIALS  AND  SPHERICAL  FUNCTIONS" 


NOLTR  73-191 


FOR  INTERNAL  USE  ONLY 


TN  9726 


533iMHL«b*g 


NAVAL  JRDNANCE  LABORATORY 
White  Oik,  Silver  Spring,  Maryland 


NUMERICAL  COMPUTATION  OF  LEGENDRE  POLYNOMIALS  AND 
SPHERICAL  FUNCTIONS 


7  November  1972 

K,  H.  Lackey 

Magnetic  Structures  Group 

Asgntt  Task  No.  NOL-786/N^L  (Magnetio  Calibration  for  NPL) 

TVTR  No.  530-524 


Abet!  Thle  report  describes  computer  subroutines  for  the  generation  of 

Legendre  polynomials  and  spherical  functions.  The  subroutines  are 
coded  in  the  FOFTPAN  TV  computer  language.  A  brief  description 
of  the  functions  and  sons  of  their  properties  is  also  included . 

A  comparison  is  given  of  the  numerical  stability  of  tvo  different 
methods  of  generating  the  functions. 


Ref:  (a)  S.  Chapman  &  J.  Bartels,  Geomagnetism  (Qrford  Press,  London,  1940), 

Vol.  II 

(b)  W.  D.  Macmillan,  The  Theory  of  the  Potential  (McGraw-Hill  Book 
Cc.,  New  York,  1930) 

(c)  ASM  55  Handbook  of  Mathematical  Functions  (U.S.  Government  Printing 
Office,  Washington,  D.C.,  1964) 

(d)  NOLTR  69-60,  The  Reaction  of  a  Rigid  Body  to  a  Uniform  Foroe  Field, 
17  Mar  1969,  M.  H.  Lackey 


Etacl: 


(1)  Figure  1,  Regular  Legendre  Polynomials  ?Q(coab)  For  n  =  0 
through  7 

(2)  Figure  2,  Associated  Legendre  Polynomials  P_  (coso)  For  n  =  0 

through  7  ' 

(3)  Figure  3,  Schmidt  Polynomials  F^(cos9)  For  a  =  0  through  7 

(4)  Figure  4,  Unstable  Procedure  for  P®_1(oos0)  For  n  =  15 

through  20  . 

(5)  Figure  5,  Stable  Procedure  for  Pn“'i(cos9)  For  n  =  15 

through  20  n 

(6)  Appendix  A,  Listing  of  Funotion  Subroutines 
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INTRODUCTION 

1.  Computer  subroutines  hare  been  devised  to  compute  values  for  three 

special  types  of  polynomials  Including  regular  and  associated  Legendre  polynomials, 
and  Schmidt  functions.  The  functions  have  special  orthogonality  properties 
which  make  them  especially  useful  for  Interpolation  and  approximation.  Techniques 
in  spherical  harmonic  analysis  can  be  defined  In  terms  of  the  associated 
Legendre  polynomials  (spherical  functions).  The  computer  subroutines  can  be 
used  to  develop  nimerical  methods  for  the  harmonic  analysis  techniques. 

A  listing  of  the  subroutines  in  FORTRAN  IV  is  included  in  Appendix  A. 

2.  The  subroutines  are  based  on  a  finite  series  definition  for  the  polynomials. 

It  was  determined  that  the  series  definition  produced  a  more  stable  method 

than  methods  based  on  recurrence  formulas. 

POLYNOMIAL  ffiFUlITIClio 

3.  There  are  a  variety  of  ways  to  define  the  polynomials  depending  on  the  use 
intended  for  them.  The  definitions  and  terminology  used  in  tho  following 
definitions  conform  to  the  usage  in  references  (a)  and  (b).  Some  of  the 
recurrence  formulas  were  obtained  from  reference  (c). 

4.  The  regular  Legendre  polynomials  P  (x)_  can  be  defined  on  the  interval 
-1  i  x  i  1  by  Rodrique's  formula,  n 


for  n  a  0  and  Ixl  s  1.  The  associated  Legendre  polynomials  or  spherical 

functions  P  (xj  can  now  be  defined  as 
- n,m'-' 


P  (x)  *  (l-x2)^2 

n,m 


(2) 


for  m  «s  0,  n  i  0,  and  jx|  1.  The  index  n  designates  the  degree  of  the 

polynomial  and  the  index  m  designates  the  order.  It  should  be  noted  that 

some  definitions  of  P  (x)  contain  a  factor  of  (-l)m  depending  on  whether 
n,n 

the  polynomials  are  considered  to  be  functions  of  x  on  the  interval 

-1  i  x  <  1  or  as  functions  of  G  (with  x  =  cosy)  on  the  interval  0  *  d  s  n. 

In  this  report  the  factor  is  dropped  in  keeping  with  the  definitions  in 
reference  (a). 

5.  A  comparison  of  equations  (1)  and  (2)  show  that  the  regular  Legendre 
polynomials  Pr(x)  are  a  subset  of  the  associated  Legendre  polynomials 

P  (x),  i.e.,  P  (x)  =  P  n(x).  Also  Equation  (2)  leads  to  the  fact  that 
n,m  n  n,u 

P„  (x)  =  0  for  m  >  n. 
n,m 

6,  Graphs  of  typical  families  of  the  polynomials  are  shown  in  Figures  I  and  2. 
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The  regular  Legendre  polynomial*  shown  in  Figure  1  include  PQ,  1^,  . .., 

?fj.  The  polynomial  values  Pn(cose)  are  plotted  as  functions  of  d  for 

0  i  e  i  180°.  Figure  2  shows  the  family  (cosb)  for  ■  =  0,  1,  2,  7. 

'*■ 

Notice  the  variation  in  the  value  of  the  peaks  of  each  curve.  The  curves  for 
n  <  4  appear  as  straight  lines  coinciding  with  the  zero  axis.  This  extensive 
variation  in  the  order  of  magnitude  for  different  polynomials  P  (x)  has 

UfJ& 

disadvantages,  especially  in  the  development  of  numerical  analysis  procedures. 
This  led  chmidt  (see  reference  (a))  to  develop  a  new  set  of  polynomials. 

7.  The  Schmidt  polynoalala  P^(x)  are  defined  by  scaling  the  associated 
Legendre  polynomials  os  follows 


'  P°(x)  -  Pn  (x)  =  P  (x) 

n  Qj  u  n 


P*(x)  a  i?.;%IliV2p  (x) 
n  f  (n-fm)i  n,m 


(3) 


for  m  >  0  and  |x|  4  1.  The  resulting  polynomials  all  have  values  of  the  same 
order  of  magnitude.  Also,  |P^(x)|  s  1  for  |x[  s  1.  A  typical  family  of  Schmidt 
polynomials  P^(cose)  for  m  =  0,  1,  2,  . . .,  7  is  shown  in  Figure  3. 

NUMERICAL  METHODS 

8.  There  are  many  ways  of  numerically  generating  sets  of  polynomials.  Che  of 
the  most  common  methods  is  the  use  of  recurrence  formulas.  The  associated 
Legendre  polynomials  satisfy  several  recurrence  formulas  including 

P_  (x)  =  [(2n-l) »x.P  .  (x)  -  (n+m-l)P  -  (x)]/(n-m)  for  n^n  and  n>l  (4) 

Q|S  n—i.  t  in  f  n 

pn>B(x)  =  [(m-n-l)*x*pn  ^(x)  +  ( n+m-1 ) ?n_1  |B_i(x)]/( l-*2 ) for  |x|<l, 

b>0,  and  n>0  (5) 

P  (x)  =  2(m-l)*x-(l-x2)"ly/2P  „  ,  -  (n+a-l)(n-m+2)P  Ax)  for  |x|<l 
n,m  n,m-l  n,m-2 

and  m>l.  (6) 

Equation  (4)  represents  a  recurrence  formula  with  varying  degree,  Equation  (5) 
represents  both  varying  degree  and  varying  order,  and  Equation  (6)  represents 
varying  order. 

9.  Another  method  for  generating  the  associated  Legendre  polynomials  is  given 
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la  reference  (a).  The  polynomials  art  expressed  a s  a  finite  (alternating) 
•arias  la  povars  of  x.  Tha  expression  Is: 


r 

n,m 


(*) 


(2n)|(l-x2)^2  xnnn 
2n*nl (n-o)l 


(n-n)  (n-o-l)xp~n  2 

2(2n-l) 


(n-o)  (n-m-1)  (n-m-2)  (n-a^lx0^ 
2*4(2n-l)(2n-3) 


(7) 


where  the  last  tarn  inside  tha  bracket  Is  constant  If  (n-m)  Is  even)  or  Is  a 
multiple  of  x  if  (n-n)  Is  odd. 

NUMERICAL  STABILITY 

10.  Several  different  methods  based  on  the  recurrence  formulas  were  used 
to  test  the  nuoerlcal  stability  for  large  values  of  n  and  m,  and  for  small 

values  of  (x  -1).  The  only  recurrence  formula  with  any  stability  was  Equation  (4) 
which  has  varying  degree.  This  formula  can  be  used  by  itself  only  to  generate 
the  regular  Legendre  polynomials.  When  either  Equation  (5)  or  (6)  is  added 
the  method  becomes  unstable.  For  example,  Figure  4  shows  a  family  of 

pn-1(cosd)  for  n  =  15,  16,  ...»  20.  Notice  that  Instability  becones  worse 
n 

as  |x|  approaches  1  and  as  n  Increases. 


11.  Instead  of  trying  to  stabilize  the  methods  using  the  recurrence  formulas  it 
was  decided  to  try  the  series  Equation  (7).  Although  the  equation  appears  to 
be  unstable  itself  (alternating  series  can  be  unstable)  the  results  Indicate 
the  opposite.  Figure  5  shows  the  same  polynomials  displayed  in  Figure  4  but 
generated  ty  Equation  (7).  There  seems  to  be  no  problem  for  jx|  near  one 
or  for  large  n.  It  was  therefore  decided  to  use  Equation  (7)  for  the  subroutine. 
The  computing  time  using  Equation  (7)  was  about  the  same  as  methods  using 
recurrence  formulas. 


SUBROUTINE  CALL  STATEMENTS 

12.  The  polynomial  values  can  be  computed  as  follows:  Assume  that  y  is  a 
variable  used  In  a  computer  program  and  that  y  is  to  be  set  equal  to  a 
polynomial  value.  Then 

y  =  PQ(x)  is  written  as  Y  =  PIIM(N,0,X)  for  fteO  and  |x|sl. 

y  =  P  (x)  is  written  as  Y  =  PNM(N,f:,X)  for  feO,  MiO,  and  |x,sl. 
n,n 

y  =  P^x)  le  written  as  Y  =  5PN!!(N,!'.,X)  for  HsO,  IfcO,  and  |x|*l. 
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Th ere  irt  th m  funotion  subprograms  In  th*  package.  These  inoludei 

FUNCTION  SPNM(N,M,X) 

FUNCTION  PNM(N,H,X) 

FUNCTION  ANF(N) 

Th*  suhrovUne  ANF(N)  Is  th*  faotorlal  aubroutine,  1.*, 

y  b  nl  la  wrltt«n  a*  T  =  ANF(N)  for  NiO. 

Th*  faotorlal  value  la  return  *a  •  floating  point  mmber  baa*d  on  th*  lnt*g*r 
H.  Th*  auhroutln*  SFNM  ua*a  both  PNM  and  ANF  aa  axtarnal  functions.  Th* 
aubrontln*  PNM  ua*a  ANF  aa  an  external  function.  Th*  aubr ou tin*  AN?  require* 
no  *xt*rnal  function*  (machine  function*  only). 

OSES  OF  TOE  FUNCTIONS  F*(x) 

—  . . n  — 

13.  It  can  be  shown  that  the  set  of  polynomials  (P®(x))  of  fixed  order  ■ 
are  orthogonal  on  th*  interval  -1  *  X  s  1  for  all  n  a  m.  In  faott 

j  r?(x)Pj,(x)dx  =  6nn,  (8) 

for  n  a  ■  where  6  ,  la  the  Krone  ok*  r  delta.  Th*  polynomial*  can  therefor* 

nn 

b*  normalised  and  ua*d  for  Interpolation  and  expansion  of  arbitrary  function* 
on  th*  Interval  -1  s  x  *  1. 

14.  Th*  polynomial*  are  of  primary  laportano*  In  area*  of  spherical  harmonlo 
analysis  and  potential  theory.  If  we  define  two  new  sets  of  function*  aa 

{ain(m*>)F^(coae)],  {coa  (m*)P*(cose)}  (9) 

and  consider  <t  and  6  to  be  th*  spherical  angles  representing  longitude 
and  oolatltude  respectively,  then  the  functions  are  called  spherical  surfaoe 
harmonics,  and  are  orthogonal  and  complete  on  the  surfaoe  of  the  unit  sphere. 
They  satisfy  the  condition 
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for  n.  n‘,  m,  m'  i  0  (aoe  reference  (a)).  Than  any  continuous  function 
on  tha  aurfaoa  of  tha  unit  aphero  can  be  expanded  into  a  uniformly 
convergent  seriea  of  aurfaoa  harmonica  as 


f(tt,«0 


E^sinBv)  I^(coae  )| 


(11) 


vhara  Sn(e,*)  represents  a  general  surface  harmonic  of  degree  n.  The 
constants  Aa  and  B13  are  dete mined  from  the  equations 


0. 

15.  Numerical  integrating  schemes  for  uniformly  spaced  data  fii  =  f(e,,  <fi.) 

on  the  surface  of  the  unit  sphere  are  discussed  in  reference  (d).  * 

SUMMARY 

16.  This  report  has  discussed  briefly  some  of  the  properties  of  Legendre 
polynomials  and  some  of  their  uses.  The  subroutines  listed  in  Appendix  A 
can  be  used  in  a  variety  of  ways  including  interpolation,  approximation, 
and  spherical  harmonic  analysis.  Flans  are  being  made  to  develop  other 
subroutines  to  perform  the  spherical  harmonic  analysis  and  extrapolation  of 
potential  functions. 
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Copy  to: 
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530 
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720 
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FIG.  1.  REGULAR  LEGENDRE  POLYNOIIALG  Pn(ooau)  FCR  n  ■  0  THROUGH  7 


K-8 


90IX) 


NOITR  73-191 


FIG.  2.  ASSOCIATED  LEGENDRE  PCLYNCMIAL3  P_  (oos9)  FOR  m  =  0  THROUGH  7 

'i® 


Function 

Approx. 

Peak 

r  / 

P7,7 

.U  *  10° 

P7,6 

.32  x  105 

P7#5 

.63  x  104 

P7,4 

.11  x  104 

p_  _ 

.17  x  103 

7,3 

P7,2 

.27  x  102 
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PIG.  3.  SCHMIDT  PXYNCMIALS  F^(oo*a)  FOR  a  =  0  THROUGH  7 


a 

x 


s 

I'i - 1 — 

-.000  .300 


T - 1 - 

.600  .900 

ANGLE 


(X102  ) 

1 - 1 - - — I 

l .200  l .500  I *800 
End  (3) 


K-10 


FUNCTION  VRLUE 


NOLTR 


NOITR  73-191 


APPENDIX  A 

LISTING  OF  FUNCTION  bUbkOUTINES 


FUNCTION  SPNM(N.MtX) 

SPNM-PNMIN.M.X) 

IK  (  M.tQ.O.OR.M.GT  .N  )  RETURN 

SPNM-  jURT ( 2 • *ANF  (  N-M ) /ANF ( N*M ) )*SPNM 

RETURN 

END 


FUNCTION  PNM(N*M.X» 

PNM-0. 

IFIM.GT.NI  RETURN 

1F( I ABS ( 1 . -AbS ( X  I I  )  .GT.l.E-9)  GO  TO  20 
IF(M.NE.O)  RETURN 
PNM  — 1. 

IF (X.GT.O..OR.N.EO.  INT (FLOAT (N)/2.+.l)*2)  PNM-1. 
RETURN 

20  CNM-(2.**N)*ANF(N)*ANF<N-M> 

PNM-1. 

IF(M.Nt.O)  PNM-SQRT ((  l.-X*X»**M) 

CNM-ANF ( 2*N ) *PNH/CNM 
PNM-1. 

IF(M.NE.N)  PNM«X**(N-M) 

IF(N-M.LE.1»  GO  TO  40 
PR01-1 . 

NT ■ ( N-M ) / 2 
DO  30  I -1 .NT 
ANl»FLOAT(N-M-2*I  +  2  I 
AN2»FLOAT(2*I ) 

AN3-FL0AT ( 2*N-2*I  +  1  I 
PR01»-PRD1*AN1*(  AN  1-1 »/ <AN2*AN3) 

NE-N-M-2*! 

AN  1*1, 

IF(NE.GT.O)  AN1«X**NE 
PNM-PNM+PR01*AN1 
30  CONTINUE 
40  PNM=CNM*PNM 
RETURN 
END 
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FUNCTION  ANF ( N ( 

DOUBLE  PRECISION  AN 
ANF-1. 

AN-1.00 

IFIN.LT.OI  PRINT  01 
IF|N.LT.2>  RETURN 
00  10  1-2. N 

10  AN-AN»0BL£ ( FLOAT (  I  )  I 
■»NF -SNGL  (  AN  ) 

RETURN 

01  FORMAT (37H1FACTORIAL  INTEGER  IS  LESS  THAN  ZERO.//) 
END 
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